diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/novice.el | 11 |
2 files changed, 10 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ee83dbe2cb..a86be128499 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-11-13 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * novice.el (disabled-command-function): | ||
| 4 | Fix 2009-11-15 change. (Bug#7384) | ||
| 5 | |||
| 1 | 2010-11-12 Glenn Morris <rgm@gnu.org> | 6 | 2010-11-12 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * calendar/calendar.el (diary-iso-date-forms): Make elements | 8 | * calendar/calendar.el (diary-iso-date-forms): Make elements |
diff --git a/lisp/novice.el b/lisp/novice.el index c7cbccfa02c..47b32fcde8a 100644 --- a/lisp/novice.el +++ b/lisp/novice.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs | 1 | ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 1994, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1987, 1994, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| 7 | ;; Keywords: internal, help | 7 | ;; Keywords: internal, help |
| @@ -110,9 +110,9 @@ SPC to try the command just this once, but leave it disabled. | |||
| 110 | (not (string= "" user-init-file)) | 110 | (not (string= "" user-init-file)) |
| 111 | (y-or-n-p "Enable command for future editing sessions also? ")) | 111 | (y-or-n-p "Enable command for future editing sessions also? ")) |
| 112 | (enable-command cmd) | 112 | (enable-command cmd) |
| 113 | (put cmd 'disabled nil))) | 113 | (put cmd 'disabled nil)))) |
| 114 | (?n nil) | 114 | (or (char-equal char ?n) |
| 115 | (t (call-interactively cmd))))) | 115 | (call-interactively cmd)))) |
| 116 | 116 | ||
| 117 | (defun en/disable-command (command disable) | 117 | (defun en/disable-command (command disable) |
| 118 | (unless (commandp command) | 118 | (unless (commandp command) |
| @@ -169,5 +169,4 @@ to future sessions." | |||
| 169 | 169 | ||
| 170 | (provide 'novice) | 170 | (provide 'novice) |
| 171 | 171 | ||
| 172 | ;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 | ||
| 173 | ;;; novice.el ends here | 172 | ;;; novice.el ends here |