Mercurial > emacs

changeset 5742:84cdd74ddbb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(disable-command): Reject invalid commands.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Feb 1994 18:46:29 +0000
parents ea9f55ec6ee9
children 9ad79a0fb0aa
files lisp/novice.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/novice.el	Wed Feb 02 07:44:43 1994 +0000
+++ b/lisp/novice.el	Wed Feb 02 18:46:29 1994 +0000
@@ -108,6 +108,8 @@
 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