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) (while (not chosen)
(message nil);; this seems needed... (message nil);; this seems needed...
(setq choice (read-char-exclusive prompt)) (setq choice (read-char-exclusive prompt))
(if (eq choice 27) (keyboard-quit)) ;; quit if ESC is pressed
(setq chosen (or (member choice choices) (setq chosen (or (member choice choices)
(member (downcase choice) choices) (member (downcase choice) choices)
(member (upcase choice) choices)))) (member (upcase choice) choices))))