X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/69c41c4070c86baac11a627e9c3d366420aeb7cc..84b6d3df1ad4f84faaf2bdf511f184ae1716762e:/lisp/novice.el diff --git a/lisp/novice.el b/lisp/novice.el index bcc94c86c9..92ba3d5277 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -1,6 +1,7 @@ ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs -;; Copyright (C) 1985-1987, 1994, 2001-2012 Free Software Foundation, Inc. +;; Copyright (C) 1985-1987, 1994, 2001-2013 Free Software Foundation, +;; Inc. ;; Maintainer: FSF ;; Keywords: internal, help @@ -49,7 +50,6 @@ If nil, the feature is disabled, i.e., all commands work normally.") (unless keys (setq keys (this-command-keys))) (let (char) (save-window-excursion - (help-setup-xref (list 'disabled-command-function cmd keys) nil) (with-output-to-temp-buffer "*Disabled Command*" ;; (help-buffer) (if (or (eq (aref keys 0) (if (stringp keys) @@ -159,8 +159,8 @@ to future sessions." (defun disable-command (command) "Require special confirmation to execute COMMAND from now on. COMMAND must be a symbol. -This command alters the user's .emacs file so that this will apply -to future sessions." +This command alters your init file so that this choice applies to +future sessions." (interactive "CDisable command: ") (en/disable-command command t))