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.

diff --git a/lisp/novice.el b/lisp/novice.el
index 16766c253c5ee46c5beaa22f98d17b25500839e0..a4d043574a7154dd047408ddf9a6e48863a9745b 100644 (file)
--- 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))