From: Kim F. Storm <storm@cua.dk>
Date: Fri, 21 Jun 2002 13:51:26 +0000 (+0000)
Subject: Handle kp-begin like kp-space.
X-Git-Tag: ttn-vms-21-2-B4~14501
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fe7c8dd918ebe611e17834b58ce2441fa7780d9;p=emacs.git

Handle kp-begin like kp-space.
---

diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el
index 2f1d3e1f2a4..7a9b4fc8362 100644
--- a/lisp/emulation/keypad.el
+++ b/lisp/emulation/keypad.el
@@ -255,6 +255,14 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'"
     (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