Mercurial > emacs

changeset 45953:66857c2230b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle kp-begin like kp-space.
author Kim F. Storm <storm@cua.dk>
date Fri, 21 Jun 2002 13:51:26 +0000
parents ec1df96b1c23
children 871fe6a1f35a
files lisp/emulation/keypad.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/keypad.el	Fri Jun 21 13:51:05 2002 +0000
+++ b/lisp/emulation/keypad.el	Fri Jun 21 13:51:26 2002 +0000
@@ -255,6 +255,14 @@
     (while (< i 11)
       (define-key function-key-map (vector (aref kp i))
 	(if bind (vector (aref bind i))))
+      (if (= i 6)
+	  (cond ((eq (aref kp i) 'kp-space)
+		 (define-key function-key-map [kp-begin]
+		   (if bind (vector (aref bind i)))))
+		((eq (aref kp i) 'S-kp-space)
+		 (define-key function-key-map [S-kp-begin]
+		   (if bind (vector (aref bind i)))))))
+		 
       (setq i (1+ i)))))
 
 ;;; keypad.el ends here