Rename M-x ^r-bad-command to M-x undefined.

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 4138523e6ba4a865148e4ddd895dd8e2277e7d93..f06f7b450b03e0b79fc58fc9e49049a2988fc9b2 100644 (file)
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.109 1991/05/02 01:12:16 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.110 1991/05/06 00:57:03 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -203,10 +203,8 @@ For more information type the HELP key while entering the name."
     (temporary-message "Quit")
     (^G-signal)))
 
-(define-command ^r-bad-command
-  "This command is used to capture undefined keys.
-It is usually called directly by the command lookup
-procedure when it fails to find a command."
+(define-command undefined
+  "This command is used to capture undefined keys."
   ()
   (lambda ()
     (editor-error "Undefined command: " (xchar->name (current-command-char)))))

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index c6a2ca390c3da97b4ce74fa0b2397813104cbfa1..8312db00aaac1a50c5cf9c283bbe418ce8b55e90 100644 (file)
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.97 1991/04/23 06:39:19 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.98 1991/05/06 00:57:18 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -157,7 +157,7 @@ Prints the brief documentation for that command."
   "kDescribe key briefly"
   (lambda (key)
     (let ((command (comtab-entry (current-comtabs) key)))
-      (if (eq? command (ref-command-object ^r-bad-command))
+      (if (eq? command (ref-command-object undefined))
          (help-describe-unbound-key key)
          (message (xchar->name key)
                   " runs the command "
@@ -169,7 +169,7 @@ Prints the full documentation for that command."
   "kDescribe key"
   (lambda (key)
     (let ((command (comtab-entry (current-comtabs) key)))
-      (if (eq? command (ref-command-object ^r-bad-command))
+      (if (eq? command (ref-command-object undefined))
          (help-describe-unbound-key key)
          (help-describe-command command)))))