104 |
;;;###autoload |
;;;###autoload |
105 |
(defun enable-command (command) |
(defun enable-command (command) |
106 |
"Allow COMMAND to be executed without special confirmation from now on. |
"Allow COMMAND to be executed without special confirmation from now on. |
107 |
The user's .emacs file is altered so that this will apply |
COMMAND must be a symbol. |
108 |
|
This command alters the user's .emacs file so that this will apply |
109 |
to future sessions." |
to future sessions." |
110 |
(interactive "CEnable command: ") |
(interactive "CEnable command: ") |
111 |
(put command 'disabled nil) |
(put command 'disabled nil) |
142 |
;;;###autoload |
;;;###autoload |
143 |
(defun disable-command (command) |
(defun disable-command (command) |
144 |
"Require special confirmation to execute COMMAND from now on. |
"Require special confirmation to execute COMMAND from now on. |
145 |
The user's .emacs file is altered so that this will apply |
COMMAND must be a symbol. |
146 |
|
This command alters the user's .emacs file so that this will apply |
147 |
to future sessions." |
to future sessions." |
148 |
(interactive "CDisable command: ") |
(interactive "CDisable command: ") |
149 |
(if (not (commandp command)) |
(if (not (commandp command)) |