diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-13 20:53:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-13 20:53:05 +0000 |
| commit | c046590e94b77f9e69f2355595652517aca502dc (patch) | |
| tree | 3ef2089533b9ccde4c409945b334616fcd34aa76 /lisp/novice.el | |
| parent | 58913dd306418432a25c613f5c453e77004be11e (diff) | |
| download | emacs-c046590e94b77f9e69f2355595652517aca502dc.tar.gz | |
(disabled-command-hook): Use shorthand for obsolescence.
(disabled-command-function): Make the ?\ char more obvious.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index ca9a06769d5..b2a0bec0204 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -44,7 +44,7 @@ If nil, the feature is disabled, i.e., all commands work normally.") (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 @@ SPC to try the command just this once, but leave it disabled. (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 @@ to future sessions." (provide 'novice) -;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 +;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 ;;; novice.el ends here |