255 |
(while (< i 11) |
(while (< i 11) |
256 |
(define-key function-key-map (vector (aref kp i)) |
(define-key function-key-map (vector (aref kp i)) |
257 |
(if bind (vector (aref bind i)))) |
(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 |
|
|
266 |
(setq i (1+ i))))) |
(setq i (1+ i))))) |
267 |
|
|
268 |
;;; keypad.el ends here |
;;; keypad.el ends here |