(global-map): Bind <home> to beginning-of-line,

<end> to end-of-line, C-<home> to beginning-of-buffer, and
C-<end> to end-of-buffer.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c543ca968d6..64789b66e05 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-01-09  Gerd Moellmann  <gerd@gnu.org>
 
+        * bindings.el (global-map): Bind <home> to beginning-of-line,
+        <end> to end-of-line, C-<home> to beginning-of-buffer, and
+        C-<end> to end-of-buffer.
+
         * language/european.el: Add Dutch and Spanish language info
         to be able to use the appropriate tutorials.
 
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4decb7a857e..6b7bb02e9b7 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -622,7 +622,8 @@ language you are using."
 (define-key global-map [delete] 'backward-delete-char)
 
 ;; natural bindings for terminal keycaps --- defined in X keysym order
-(define-key global-map [home]           'beginning-of-buffer)
+(define-key global-map [home]           'beginning-of-line)
+(define-key global-map [C-home]         'beginning-of-buffer)
 (define-key global-map [M-home]         'beginning-of-buffer-other-window)
 (define-key global-map [left]           'backward-char)
 (define-key global-map [up]             'previous-line)
@@ -636,7 +637,8 @@ language you are using."
 (define-key global-map [C-next]         'scroll-left)
 (define-key global-map [M-next]         'scroll-other-window)
 (define-key global-map [M-prior]        'scroll-other-window-down)
-(define-key global-map [end]            'end-of-buffer)
+(define-key global-map [end]            'end-of-line)
+(define-key global-map [C-end]          'end-of-buffer)
 (define-key global-map [M-end]          'end-of-buffer-other-window)
 (define-key global-map [begin]          'beginning-of-buffer)
 (define-key global-map [M-begin]        'beginning-of-buffer-other-window)