# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1024667486 0
# Node ID 66857c2230b6cb969ce09dbd2915cd494a7f9964
# Parent  ec1df96b1c23540197846cf7c9c9456f7b2ee196
Handle kp-begin like kp-space.

diff -r ec1df96b1c23 -r 66857c2230b6 lisp/emulation/keypad.el
--- 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