From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 8 Aug 1991 19:00:04 +0000 (+0000)
Subject: Make most HP keyboard functions do something reasonable (i.e. related
X-Git-Tag: 20090517-FFI~10388
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8825e04ff7b00b2686d6931303e82f4a5f6e12f3;p=mit-scheme.git

Make most HP keyboard functions do something reasonable (i.e. related
to their names).
---

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 24527964d..533a9e976 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.131 1991/08/06 22:45:17 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.132 1991/08/08 19:00:04 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -116,6 +116,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental left 'backward-char)
 (define-prefix-key 'fundamental #\c-c 'prefix-key)
 (define-key 'fundamental #\c-d 'delete-char)
+(define-key 'fundamental deletechar 'delete-char)
 (define-key 'fundamental #\c-e 'end-of-line)
 (define-key 'fundamental #\c-f 'forward-char)
 (define-key 'fundamental right 'forward-char)
@@ -124,11 +125,13 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-i 'indent-for-tab-command)
 (define-key 'fundamental #\c-j 'newline-and-indent)
 (define-key 'fundamental #\c-k 'kill-line)
+(define-key 'fundamental deleteline 'kill-line)
 (define-key 'fundamental #\c-l 'recenter)
 (define-key 'fundamental #\c-m 'newline)
 (define-key 'fundamental #\c-n 'next-line)
 (define-key 'fundamental down 'next-line)
 (define-key 'fundamental #\c-o 'open-line)
+(define-key 'fundamental insertline 'open-line)
 (define-key 'fundamental #\c-p 'previous-line)
 (define-key 'fundamental up 'previous-line)
 (define-key 'fundamental #\c-q 'quoted-insert)
@@ -137,6 +140,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-t 'transpose-chars)
 (define-key 'fundamental #\c-u 'universal-argument)
 (define-key 'fundamental #\c-v 'scroll-up)
+(define-key 'fundamental next 'scroll-up)
 (define-key 'fundamental #\c-w 'kill-region)
 (define-prefix-key 'fundamental #\c-x 'prefix-key)
 (define-key 'fundamental #\c-y 'yank)
@@ -191,10 +195,12 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\m-l 'downcase-word)
 (define-key 'fundamental #\m-m 'back-to-indentation)
 (define-key 'fundamental #\m-q 'fill-paragraph)
+(define-key 'fundamental home 'home-cursor)
 (define-key 'fundamental #\m-r 'move-to-window-line)
 (define-key 'fundamental #\m-t 'transpose-words)
 (define-key 'fundamental #\m-u 'upcase-word)
 (define-key 'fundamental #\m-v 'scroll-down)
+(define-key 'fundamental prior 'scroll-down)
 (define-key 'fundamental #\m-w 'copy-region-as-kill)
 (define-key 'fundamental #\m-x 'execute-extended-command)
 (define-key 'fundamental #\m-y 'yank-pop)
diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index ccacb56a0..cc0990c32 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.105 1991/08/06 15:39:34 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.106 1991/08/08 18:57:17 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1987, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -134,6 +134,15 @@ negative means relative to bottom of window."
 	(set-current-point! (if (group-start? mark)
 				(group-start mark)
 				mark))))))
+
+(define-command home-cursor
+  "Position point at upper-left corner of window."
+  ()
+  (lambda ()
+    (let ((mark (window-coordinates->mark (current-window) 0 0)))
+      (set-current-point! (if (group-start? mark)
+			      (group-start mark)
+			      mark)))))
 
 (define-command scroll-up
   "Move down to display next screenful of text.