From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 21 Apr 1992 19:08:41 +0000 (+0000)
Subject: Make Outline mode key bindings match Emacs.
X-Git-Tag: 20090517-FFI~9468
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25fe36da2a36e98e25413c24de83d22269577eb1;p=mit-scheme.git

Make Outline mode key bindings match Emacs.
---

diff --git a/v7/src/edwin/outline.scm b/v7/src/edwin/outline.scm
index dc831fac0..0328f2ec2 100644
--- a/v7/src/edwin/outline.scm
+++ b/v7/src/edwin/outline.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/outline.scm,v 1.3 1992/04/17 21:09:16 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/outline.scm,v 1.4 1992/04/21 19:08:41 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -244,8 +244,8 @@ With argument, turn outline mode on iff argument is positive."
 	     (disable-current-minor-mode! mode))))))
 
 (define-minor-mode outline "Outline" "Minor mode for moving over outlines.")
-(define-key 'outline '(#\C-z #\f) 'forward-topic)
-(define-key 'outline '(#\C-z #\b) 'backward-topic)
-(define-key 'outline '(#\C-z #\n) 'narrow-to-topic)
-(define-key 'outline '(#\M-C-z #\f) 'forward-up-topic)
-(define-key 'outline '(#\M-C-z #\b) 'backward-up-topic)
\ No newline at end of file
+(define-key 'outline '(#\C-c #\C-f) 'forward-topic)
+(define-key 'outline '(#\C-c #\C-b) 'backward-topic)
+(define-key 'outline '(#\C-c #\C-n) 'narrow-to-topic)
+(define-key 'outline '(#\C-c #\C-a) 'forward-up-topic)
+(define-key 'outline '(#\C-c #\C-u) 'backward-up-topic)
\ No newline at end of file