# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1095108775 0
# Node ID 1ab0f10dbd94602892428814ecccc3620ffd2e76
# Parent  74d256616e059a1ee8a1ce0af29ea70b572e0b5a
(disabled-command-hook): Use shorthand for obsolescence.
(disabled-command-function): Make the ?\  char more obvious.

diff -r 74d256616e05 -r 1ab0f10dbd94 lisp/novice.el
--- 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