summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-01-09 13:11:34 +0000
committerGerd Moellmann <gerd@gnu.org>2001-01-09 13:11:34 +0000
commit1dfca644b586e72a2a313b4630bc6b93bd05b729 (patch)
tree9300e583879daafc5562a5ac9fd708a92b212be5
parent732b9cddf4c9403f7b011737d72506572f0524c9 (diff)
downloademacs-1dfca644b586e72a2a313b4630bc6b93bd05b729.tar.gz
(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.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/bindings.el6
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)