From 42e4e1aabd07580a4eda2c9d6f002fc52ca5cd89 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jan 1999 20:49:11 +0000
Subject: [PATCH] Fix binding: "home" key on PCs means beginning-of-line.

---
 v7/src/edwin/modefs.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index cb1e28250..cb179115d 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: modefs.scm,v 1.153 1999/01/02 06:11:34 cph Exp $
+;;; $Id: modefs.scm,v 1.154 1999/01/14 20:49:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -328,7 +328,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental (make-special-key 'right 1) 'forward-word)
 
 ;; PC bindings:
-(define-key 'fundamental (make-special-key 'home 0) 'home-cursor)
+(define-key 'fundamental (make-special-key 'home 0) 'beginning-of-line)
 (define-key 'fundamental (make-special-key 'end 0) 'end-of-line)
 (define-key 'fundamental (make-special-key 'delete 0) 'delete-char)
 (define-key 'fundamental (make-special-key 'page-up 0) 'scroll-down)
-- 
2.25.1