Mercurial > emacs
comparison lisp/novice.el @ 56569:a6cb62c42cec
(enable-command, disable-command): Doc fixes.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sat, 31 Jul 2004 15:43:26 +0000 |
| parents | 695cf19ef79e |
| children | c8c558c4f4a7 0bdb5a16ae51 |
comparison
equal
deleted
inserted
replaced
| 56568:519665ad7906 | 56569:a6cb62c42cec |
|---|---|
| 102 (call-interactively this-command)))) | 102 (call-interactively this-command)))) |
| 103 | 103 |
| 104 ;;;###autoload | 104 ;;;###autoload |
| 105 (defun enable-command (command) | 105 (defun enable-command (command) |
| 106 "Allow COMMAND to be executed without special confirmation from now on. | 106 "Allow COMMAND to be executed without special confirmation from now on. |
| 107 The user's .emacs file is altered so that this will apply | 107 COMMAND must be a symbol. |
| 108 This command alters the user's .emacs file so that this will apply | |
| 108 to future sessions." | 109 to future sessions." |
| 109 (interactive "CEnable command: ") | 110 (interactive "CEnable command: ") |
| 110 (put command 'disabled nil) | 111 (put command 'disabled nil) |
| 111 (let ((init-file user-init-file) | 112 (let ((init-file user-init-file) |
| 112 (default-init-file | 113 (default-init-file |
| 139 (save-buffer)))) | 140 (save-buffer)))) |
| 140 | 141 |
| 141 ;;;###autoload | 142 ;;;###autoload |
| 142 (defun disable-command (command) | 143 (defun disable-command (command) |
| 143 "Require special confirmation to execute COMMAND from now on. | 144 "Require special confirmation to execute COMMAND from now on. |
| 144 The user's .emacs file is altered so that this will apply | 145 COMMAND must be a symbol. |
| 146 This command alters the user's .emacs file so that this will apply | |
| 145 to future sessions." | 147 to future sessions." |
| 146 (interactive "CDisable command: ") | 148 (interactive "CDisable command: ") |
| 147 (if (not (commandp command)) | 149 (if (not (commandp command)) |
| 148 (error "Invalid command name `%s'" command)) | 150 (error "Invalid command name `%s'" command)) |
| 149 (put command 'disabled t) | 151 (put command 'disabled t) |