Remove references to #\T- characters.

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 4ab47c6fe47dceee1a38edf99c7ea5bed39373e7..391915ea7848598106752f5a6e700c3ec0b94967 100644 (file)
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,8 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: modefs.scm,v 1.163 2003/02/14 18:28:12 cph Exp $
+$Id: modefs.scm,v 1.164 2003/02/25 20:53:22 cph Exp $
 
-Copyright 1985, 1989-2000 Massachusetts Institute of Technology
+Copyright 1987,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
+Copyright 1994,1995,1996,1998,1999,2000 Massachusetts Institute of Technology
+Copyright 2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -363,8 +365,6 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\h-space 'hyper-space)
 (define-key 'fundamental (make-special-key 'malesymbol 4) 'super-man)
 (define-key 'fundamental (make-special-key 'menu 4) 'super-menu)
-(define-key 'fundamental #\t-$ 'top-dollar)
-(define-key 'fundamental #\t-^ 'top-hat)
 
 ;;; Mouse buttons:
 

diff --git a/v7/src/edwin/motcom.scm b/v7/src/edwin/motcom.scm
index 8baabc0169f75ac628426919e97573430961a93f..380a7dd53e09af78414135d619a9d796c8ee0754 100644 (file)
--- a/v7/src/edwin/motcom.scm
+++ b/v7/src/edwin/motcom.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: motcom.scm,v 1.50 2003/02/14 18:28:12 cph Exp $
+$Id: motcom.scm,v 1.51 2003/02/25 20:53:12 cph Exp $
 
-Copyright 1985, 1989-1999 Massachusetts Institute of Technology
+Copyright 1987,1989,1991,1993,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -163,12 +163,6 @@ Continuation lines are skipped."
   (lambda ()
     (message "Sorry, but superluminal travel is not available now.")))
 
-(define-command top-hat
-  "Deliver tophat joke."
-  ()
-  (lambda ()
-    (message "No party in progress.")))
-
 (define-command super-man
   "Deliver super man joke."
   ()
@@ -179,10 +173,4 @@ Continuation lines are skipped."
   "Deliver super menu joke."
   ()
   (lambda ()
-    (message "Big Mac, Medium Fries, Small Coke")))
-
-(define-command top-dollar
-  "Deliver top dollar joke."
-  ()
-  (lambda ()
-    (message "Real Estate in Monaco.")))
\ No newline at end of file
+    (message "Big Mac, Medium Fries, Small Coke")))
\ No newline at end of file