From facdb2775ac0bac5c3767ea96dd96f820e6642c7 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 6 Aug 1991 22:45:17 +0000
Subject: [PATCH] Fix joke brainos.

---
 v7/src/edwin/modefs.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index a342e0e08..24527964d 100644
--- 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)
 
 (define-key 'fundamental #\m-space 'just-one-space)
 (define-key 'fundamental #\m-% 'query-replace)
-- 
2.25.1