# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760214789 0
# Node ID 84cdd74ddbb051ea7e5d462c00040038c6babd77
# Parent  ea9f55ec6ee9a83d7d2b014fcfa406acf6be4ba9
(disable-command): Reject invalid commands.

diff -r ea9f55ec6ee9 -r 84cdd74ddbb0 lisp/novice.el
--- 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