/[emacs]/emacs/lisp/emulation/keypad.el
ViewVC logotype

Diff of /emacs/lisp/emulation/keypad.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by kfstorm, Tue May 14 20:30:55 2002 UTC revision 1.3 by kfstorm, Fri Jun 21 13:51:26 2002 UTC
# Line 255  the decimal key on the keypad is mapped Line 255  the decimal key on the keypad is mapped
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26