Mercurial > emacs
changeset 57096:1ab0f10dbd94
(disabled-command-hook): Use shorthand for obsolescence.
(disabled-command-function): Make the ?\ char more obvious.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 13 Sep 2004 20:52:55 +0000 |
| parents | 74d256616e05 |
| children | ddfc60ef85b9 |
| files | lisp/novice.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/novice.el Mon Sep 13 20:40:17 2004 +0000 +++ b/lisp/novice.el Mon Sep 13 20:52:55 2004 +0000 @@ -44,7 +44,7 @@ (defvaralias 'disabled-command-hook 'disabled-command-function) (make-obsolete-variable 'disabled-command-hook - "use the variable `disabled-command-function' instead." "21.4") + 'disabled-command-function "21.4") ;;;###autoload (defun disabled-command-function (&rest ignore) @@ -93,7 +93,7 @@ (message "Type y, n, ! or SPC (the space bar): ") (let ((cursor-in-echo-area t)) (while (not (memq (setq char (downcase (read-char))) - '(?! ? ?y ?n))) + '(?! ?y ?n ?\ ))) (ding) (message "Please type y, n, ! or SPC (the space bar): ")))) (if (= char ?!) @@ -185,5 +185,5 @@ (provide 'novice) -;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 +;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 ;;; novice.el ends here