diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-22 13:34:15 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-22 13:34:15 +0100 |
| commit | 70266929c3eb173fae0c64d56f8d402a805ca786 (patch) | |
| tree | cc3cd6ec573646e1fff2add8ccb6872dc60f9374 /lisp/novice.el | |
| parent | dbd0eef0c7c412583e5c5ca1d0d256a5f5490c10 (diff) | |
| download | emacs-70266929c3eb173fae0c64d56f8d402a805ca786.tar.gz emacs-70266929c3eb173fae0c64d56f8d402a805ca786.tar.bz2 emacs-70266929c3eb173fae0c64d56f8d402a805ca786.zip | |
Simplify disabled-command-function prompting
* lisp/novice.el (disabled-command-function): Use a prompt for
`read-event' instead of messaging it, so that people using
Emacspeak get the prompt read to them.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 16766c253c5..a4d043574a7 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -88,14 +88,13 @@ SPC to try the command just this once, but leave it disabled. ;; (help-mode)) ) (fit-window-to-buffer (get-buffer-window "*Disabled Command*")) - (message "Type y, n, ! or SPC (the space bar): ") (let ((cursor-in-echo-area t)) - (while (progn (setq char (read-event)) + (while (progn (setq char (read-event + "Type y, n, ! or SPC (the space bar): ")) (or (not (numberp char)) (not (memq (downcase char) '(?! ?y ?n ?\s ?\C-g))))) - (ding) - (message "Please type y, n, ! or SPC (the space bar): ")))) + (ding)))) (setq char (downcase char)) (pcase char (?\C-g (setq quit-flag t)) |