diff options
author | Roland McGrath <roland@gnu.org> | 1991-05-09 21:50:34 +0000 |
---|---|---|
committer | Roland McGrath <roland@gnu.org> | 1991-05-09 21:50:34 +0000 |
commit | 7229064dbf9dfcb873824a6f2a9af0bdb112b550 (patch) | |
tree | f024dce4c7262b3a5803600360b1ade5bf8bdb59 /lisp/novice.el | |
parent | d6003f63e9a3bee57bc3c87ac3e597326e221bb6 (diff) | |
download | emacs-7229064dbf9dfcb873824a6f2a9af0bdb112b550.tar.gz |
*** empty log message ***
Diffstat (limited to 'lisp/novice.el')
-rw-r--r-- | lisp/novice.el | 4 |
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 |