diff options
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index fa41b2bbc1e..bcc94c86c9d 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -33,8 +33,6 @@ ;; The command is found in this-command ;; and the keys are returned by (this-command-keys). -(eval-when-compile (require 'cl)) - ;;;###autoload (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") @@ -101,7 +99,7 @@ SPC to try the command just this once, but leave it disabled. (ding) (message "Please type y, n, ! or SPC (the space bar): ")))) (setq char (downcase char)) - (case char + (pcase char (?\C-g (setq quit-flag t)) (?! (setq disabled-command-function nil)) (?y |