Jokes.

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index b0f541d1be0840463fe7e0dc7eec1ae365ea83db..a342e0e0897f1d1f7a973842191246a4fe8c0f6f 100644 (file)
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.129 1991/08/06 15:37:47 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.130 1991/08/06 22:04:19 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -146,7 +146,12 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-^ 'control-prefix)
 (define-key 'fundamental #\c-_ 'undo)
 (define-key 'fundamental #\c-rubout 'backward-delete-char-untabify)
+;;; Jokes
 (define-key 'fundamental #\h-space 'hyper-space)
+(define-key 'fundamental #\s-menu 'super-menu)
+(define-key 'fundamental #\t-$ 'top-dollar)
+(define-key 'fundamental #\t-hat 'top-hat)
+(define-key 'fundamental (make-special-key 'malesymbol 4) 'super-man)
 \f
 (define-key 'fundamental #\m-space 'just-one-space)
 (define-key 'fundamental #\m-% 'query-replace)

diff --git a/v7/src/edwin/motcom.scm b/v7/src/edwin/motcom.scm
index 35f3146f348e92f0825db09ddd4bf3d132dcca0f..45e894520532f4f77c0175a182102e3b308489c2 100644 (file)
--- a/v7/src/edwin/motcom.scm
+++ b/v7/src/edwin/motcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/motcom.scm,v 1.42 1991/08/06 15:37:33 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/motcom.scm,v 1.43 1991/08/06 22:04:26 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -170,8 +170,34 @@ Continuation lines are skipped."
                           column)))
       (set-command-message! temporary-goal-column-tag column))))
 
+;;; Jokes
+
 (define-command hyper-space
   "Engage warp drive."
   ()
   (lambda ()
-    (message "Sorry, but superluminal travel is not available now.")))
\ No newline at end of file
+    (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."
+  ()
+  (lambda ()
+    (message "It's a bird... It's a plane... No, it's #\S-man!")))
+
+(define-command super-menu
+  "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