Merge pull request #1526 from seanfarley/smf/esc

mu4e-util: allow ESC to exit a choice selection
This commit is contained in:
Dirk-Jan C. Binnema 2020-01-21 20:30:56 +02:00 committed by GitHub
commit b2bdb8b30c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions

View File

@ -253,6 +253,7 @@ trying an exact match."
(while (not chosen)
(message nil);; this seems needed...
(setq choice (read-char-exclusive prompt))
(if (eq choice 27) (keyboard-quit)) ;; quit if ESC is pressed
(setq chosen (or (member choice choices)
(member (downcase choice) choices)
(member (upcase choice) choices))))