[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/novice.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/novice.el [emacs-unicode-2] |
Date: |
Wed, 15 Sep 2004 05:23:33 -0400 |
Index: emacs/lisp/novice.el
diff -c emacs/lisp/novice.el:1.31.8.3 emacs/lisp/novice.el:1.31.8.4
*** emacs/lisp/novice.el:1.31.8.3 Tue Aug 10 07:46:38 2004
--- emacs/lisp/novice.el Wed Sep 15 08:59:56 2004
***************
*** 44,50 ****
(defvaralias 'disabled-command-hook 'disabled-command-function)
(make-obsolete-variable
'disabled-command-hook
! "use the variable `disabled-command-function' instead." "21.4")
;;;###autoload
(defun disabled-command-function (&rest ignore)
--- 44,50 ----
(defvaralias 'disabled-command-hook 'disabled-command-function)
(make-obsolete-variable
'disabled-command-hook
! 'disabled-command-function "21.4")
;;;###autoload
(defun disabled-command-function (&rest ignore)
***************
*** 93,99 ****
(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)))
(ding)
(message "Please type y, n, ! or SPC (the space bar): "))))
(if (= char ?!)
--- 93,99 ----
(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 ?\ )))
(ding)
(message "Please type y, n, ! or SPC (the space bar): "))))
(if (= char ?!)
***************
*** 185,189 ****
(provide 'novice)
! ;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9
;;; novice.el ends here
--- 185,189 ----
(provide 'novice)
! ;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9
;;; novice.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/novice.el [emacs-unicode-2],
Miles Bader <=