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 24527964d648a3b3a31c747db6651139f2be5a5e..533a9e976d40d4843a523d0cb7bfcdaa21d8bc3e 100644 (file)
--- 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 ccacb56a0844fb3858b555216e4795afe8223b31..cc0990c326a0ddc636b027c7cec028a74b18f119 100644 (file)
--- 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)))))
 \f
 (define-command scroll-up
   "Move down to display next screenful of text.