From 25fe36da2a36e98e25413c24de83d22269577eb1 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Tue, 21 Apr 1992 19:08:41 +0000 Subject: [PATCH] Make Outline mode key bindings match Emacs. --- v7/src/edwin/outline.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 -- 2.25.1