emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]