diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-02 18:46:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-02 18:46:29 +0000 |
| commit | 24f5d58ee90823b4a897a15322c43fc059f198d7 (patch) | |
| tree | 4873546d94254b92b1236ce6f84e84d7d9d255dc /lisp/novice.el | |
| parent | a9bd44742b62f7b961e3c4e1eead45a9ed61c114 (diff) | |
| download | emacs-24f5d58ee90823b4a897a15322c43fc059f198d7.tar.gz | |
(disable-command): Reject invalid commands.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 2353edc5719..972d0737649 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -108,6 +108,8 @@ to future sessions." The user's .emacs file is altered so that this will apply to future sessions." (interactive "CDisable command: ") + (if (not (commandp command)) + (error "Invalid command name `%s'" command)) (put command 'disabled t) (save-excursion (set-buffer (find-file-noselect |