procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle kp-begin like kp-space.

Browse source
This commit is contained in:
Kim F. Storm 2002-06-21 13:51:26 +00:00
parent 1c62c12fbf
commit 2fe7c8dd91
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emulation/keypad.el
View file

@ -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