/[emacs]/emacs/lisp/novice.el
ViewVC logotype

Diff of /emacs/lisp/novice.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31.2.3 by miles, Sat Sep 4 09:21:44 2004 UTC revision 1.31.2.4 by miles, Thu Sep 16 00:14:58 2004 UTC
# Line 44  If nil, the feature is disabled, i.e., a Line 44  If nil, the feature is disabled, i.e., a
44  (defvaralias 'disabled-command-hook 'disabled-command-function)  (defvaralias 'disabled-command-hook 'disabled-command-function)
45  (make-obsolete-variable  (make-obsolete-variable
46   'disabled-command-hook   'disabled-command-hook
47   "use the variable `disabled-command-function' instead." "21.4")   'disabled-command-function "21.4")
48    
49  ;;;###autoload  ;;;###autoload
50  (defun disabled-command-function (&rest ignore)  (defun disabled-command-function (&rest ignore)
# Line 93  SPC to try the command just this once, b Line 93  SPC to try the command just this once, b
93       (message "Type y, n, ! or SPC (the space bar): ")       (message "Type y, n, ! or SPC (the space bar): ")
94       (let ((cursor-in-echo-area t))       (let ((cursor-in-echo-area t))
95         (while (not (memq (setq char (downcase (read-char)))         (while (not (memq (setq char (downcase (read-char)))
96                           '(?! ?  ?y ?n)))                           '(?! ?y ?n ?\ )))
97           (ding)           (ding)
98           (message "Please type y, n, ! or SPC (the space bar): "))))           (message "Please type y, n, ! or SPC (the space bar): "))))
99      (if (= char ?!)      (if (= char ?!)
# Line 185  to future sessions." Line 185  to future sessions."
185    
186  (provide 'novice)  (provide 'novice)
187    
188  ;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9  ;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9
189  ;;; novice.el ends here  ;;; novice.el ends here

Legend:
Removed from v.1.31.2.3  
changed lines
  Added in v.1.31.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26