From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Feb 2003 20:53:22 +0000 (+0000)
Subject: Remove references to #\T- characters.
X-Git-Tag: 20090517-FFI~2017
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea2bf2c75c38bf4b390ad031f39e1d09224a6833;p=mit-scheme.git

Remove references to #\T- characters.
---

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 4ab47c6fe..391915ea7 100644
--- 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 8baabc016..380a7dd53 100644
--- 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