From 2fe7c8dd918ebe611e17834b58ce2441fa7780d9 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 21 Jun 2002 13:51:26 +0000 Subject: [PATCH] Handle kp-begin like kp-space. --- lisp/emulation/keypad.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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 -- 2.39.2