summaryrefslogtreecommitdiff
path: root/lisp/novice.el
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1991-05-09 21:50:34 +0000
committerRoland McGrath <roland@gnu.org>1991-05-09 21:50:34 +0000
commit7229064dbf9dfcb873824a6f2a9af0bdb112b550 (patch)
treef024dce4c7262b3a5803600360b1ade5bf8bdb59 /lisp/novice.el
parentd6003f63e9a3bee57bc3c87ac3e597326e221bb6 (diff)
downloademacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp/novice.el')
-rw-r--r--lisp/novice.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/novice.el b/lisp/novice.el
index a0417f14ef2..caddf120743 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -23,6 +23,8 @@
;; The command is found in this-command
;; and the keys are returned by (this-command-keys).
+;;;###autoload (setq disabled-command-hook 'disabled-command-hook)
+;;;###autoload
(defun disabled-command-hook (&rest ignore)
(let (char)
(save-window-excursion
@@ -67,6 +69,7 @@ N to do nothing (command remains disabled)."))
(if (/= char ?n)
(call-interactively this-command))))
+;;;###autoload
(defun enable-command (command)
"Allow COMMAND to be executed without special confirmation from now on.
The user's .emacs file is altered so that this will apply
@@ -86,6 +89,7 @@ to future sessions."
(setq foo (buffer-modified-p))
(save-buffer)))
+;;;###autoload
(defun disable-command (command)
"Require special confirmation to execute COMMAND from now on.
The user's .emacs file is altered so that this will apply