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 | 5b817cf26eaba0b97509bdf3aad78343209190e0 (patch) | |
| tree | a47d5c9e1fec5fb1e63293d30f5606d2cb70db1a /lisp/novice.el | |
| parent | 1ca576b5b6c0366d383f1e57257f6df66af76ebd (diff) | |
| download | emacs-5b817cf26eaba0b97509bdf3aad78343209190e0.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 |