aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/novice.el11
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 @@
12010-11-13 Glenn Morris <rgm@gnu.org>
2
3 * novice.el (disabled-command-function):
4 Fix 2009-11-15 change. (Bug#7384)
5
12010-11-12 Glenn Morris <rgm@gnu.org> 62010-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