diff options
| author | Kim F. Storm | 2002-06-21 13:51:26 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-06-21 13:51:26 +0000 |
| commit | 2fe7c8dd918ebe611e17834b58ce2441fa7780d9 (patch) | |
| tree | c68d3dd065c48c74239e23f5be192f4d3b4d4926 | |
| parent | 1c62c12fbf9ffd25acbe44cb451b8de3fb675c09 (diff) | |
| download | emacs-2fe7c8dd918ebe611e17834b58ce2441fa7780d9.tar.gz emacs-2fe7c8dd918ebe611e17834b58ce2441fa7780d9.zip | |
Handle kp-begin like kp-space.
| -rw-r--r-- | lisp/emulation/keypad.el | 8 |
1 files changed, 8 insertions, 0 deletions
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 `.'" | |||
| 255 | (while (< i 11) | 255 | (while (< i 11) |
| 256 | (define-key function-key-map (vector (aref kp i)) | 256 | (define-key function-key-map (vector (aref kp i)) |
| 257 | (if bind (vector (aref bind i)))) | 257 | (if bind (vector (aref bind i)))) |
| 258 | (if (= i 6) | ||
| 259 | (cond ((eq (aref kp i) 'kp-space) | ||
| 260 | (define-key function-key-map [kp-begin] | ||
| 261 | (if bind (vector (aref bind i))))) | ||
| 262 | ((eq (aref kp i) 'S-kp-space) | ||
| 263 | (define-key function-key-map [S-kp-begin] | ||
| 264 | (if bind (vector (aref bind i))))))) | ||
| 265 | |||
| 258 | (setq i (1+ i))))) | 266 | (setq i (1+ i))))) |
| 259 | 267 | ||
| 260 | ;;; keypad.el ends here | 268 | ;;; keypad.el ends here |