From 20dce0c9f7188d13d5d127460ae82e35b454c077 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 May 1991 00:57:18 +0000
Subject: [PATCH] Rename M-x ^r-bad-command to M-x undefined.

---
 v7/src/edwin/basic.scm  | 8 +++-----
 v7/src/edwin/hlpcom.scm | 6 +++---
 2 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 4138523e6..f06f7b450 100644
--- 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 c6a2ca390..8312db00a 100644
--- 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)))))
 
-- 
2.25.1