From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1996 23:09:44 +0000 (+0000)
Subject: Change frame-related key bindings to be compatible with Emacs 19.
X-Git-Tag: 20090517-FFI~5591
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a11affd4edc1edcc62bea4a2a3ad5b5d3a4ff81d;p=mit-scheme.git

Change frame-related key bindings to be compatible with Emacs 19.
This means that C-x 5 has been redefined as a prefix key, and M-x
split-window-horizontally is now bound to C-x 3 instead.
---

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 2cebb6f49..909746eec 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: modefs.scm,v 1.149 1995/04/13 23:26:56 cph Exp $
+;;;	$Id: modefs.scm,v 1.150 1996/04/23 23:09:44 cph Exp $
 ;;;
-;;;	Copyright (c) 1985, 1989-95 Massachusetts Institute of Technology
+;;;	Copyright (c) 1985, 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -278,6 +278,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\0) 'delete-window)
 (define-key 'fundamental '(#\c-x #\1) 'delete-other-windows)
 (define-key 'fundamental '(#\c-x #\2) 'split-window-vertically)
+(define-key 'fundamental '(#\c-x #\3) 'split-window-horizontally)
 (define-prefix-key 'fundamental '(#\c-x #\4))
 (define-key 'fundamental '(#\c-x #\4 #\c-f) 'find-file-other-window)
 (define-key 'fundamental '(#\c-x #\4 #\.) 'find-tag-other-window)
@@ -285,7 +286,16 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\4 #\d) 'dired-other-window)
 (define-key 'fundamental '(#\c-x #\4 #\f) 'find-file-other-window)
 (define-key 'fundamental '(#\c-x #\4 #\m) 'mail-other-window)
-(define-key 'fundamental '(#\c-x #\5) 'split-window-horizontally)
+(define-prefix-key 'fundamental '(#\c-x #\5))
+(define-key 'fundamental '(#\c-x #\5 #\c-f) 'find-file-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\.) 'find-tag-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\0) 'delete-frame)
+(define-key 'fundamental '(#\c-x #\5 #\2) 'make-frame)
+(define-key 'fundamental '(#\c-x #\5 #\b) 'switch-to-buffer-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\d) 'dired-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\f) 'find-file-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\m) 'mail-other-frame)
+(define-key 'fundamental '(#\c-x #\5 #\o) 'other-frame)
 (define-key 'fundamental '(#\c-x #\;) 'set-comment-column)
 (define-key 'fundamental '(#\c-x #\=) 'what-cursor-position)
 (define-key 'fundamental '(#\c-x #\[) 'backward-page)