Fix joke brainos.

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index a342e0e0897f1d1f7a973842191246a4fe8c0f6f..24527964d648a3b3a31c747db6651139f2be5a5e 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.130 1991/08/06 22:04:19 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.131 1991/08/06 22:45:17 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -148,10 +148,10 @@ Like Fundamental mode, but no self-inserting characters.")
 (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)
+(define-key 'fundamental (make-special-key 'menu 4) 'super-menu)
+(define-key 'fundamental #\t-$ 'top-dollar)
+(define-key 'fundamental #\t-^ 'top-hat)
 \f
 (define-key 'fundamental #\m-space 'just-one-space)
 (define-key 'fundamental #\m-% 'query-replace)