/[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.5 by kfstorm, Sat Sep 14 20:54:07 2002 UTC revision 1.6 by lektu, Tue Feb 4 12:56:02 2003 UTC
# Line 113  decimal key must be specified." Line 113  decimal key must be specified."
113                   (character :tag "Numeric Keypad with Decimal Key"                   (character :tag "Numeric Keypad with Decimal Key"
114                              :match (lambda (widget value) (integerp value))                              :match (lambda (widget value) (integerp value))
115                              :value ?.)                              :value ?.)
116                   (const :tag "Numeric prefix arguments" prefix)                   (const :tag "Numeric prefix arguments" prefix)
117                   (const :tag "Cursor keys" cursor)                   (const :tag "Cursor keys" cursor)
118                   (const :tag "Shifted cursor keys" S-cursor)                   (const :tag "Shifted cursor keys" S-cursor)
119                   (const :tag "Unspecified/User-defined" none)                   (const :tag "Unspecified/User-defined" none)
# Line 136  decimal key must be specified." Line 136  decimal key must be specified."
136                   (character :tag "Numeric Keypad with Decimal Key"                   (character :tag "Numeric Keypad with Decimal Key"
137                              :match (lambda (widget value) (integerp value))                              :match (lambda (widget value) (integerp value))
138                              :value ?.)                              :value ?.)
139                   (const :tag "Numeric prefix arguments" prefix)                   (const :tag "Numeric prefix arguments" prefix)
140                   (const :tag "Cursor keys" cursor)                   (const :tag "Cursor keys" cursor)
141                   (const :tag "Shifted cursor keys" S-cursor)                   (const :tag "Shifted cursor keys" S-cursor)
142                   (const :tag "Unspecified/User-defined" none)                   (const :tag "Unspecified/User-defined" none)
# Line 159  decimal key must be specified." Line 159  decimal key must be specified."
159                   (character :tag "Numeric Keypad with Decimal Key"                   (character :tag "Numeric Keypad with Decimal Key"
160                              :match (lambda (widget value) (integerp value))                              :match (lambda (widget value) (integerp value))
161                              :value ?.)                              :value ?.)
162                   (const :tag "Numeric prefix arguments" prefix)                   (const :tag "Numeric prefix arguments" prefix)
163                   (const :tag "Cursor keys" cursor)                   (const :tag "Cursor keys" cursor)
164                   (const :tag "Shifted cursor keys" S-cursor)                   (const :tag "Shifted cursor keys" S-cursor)
165                   (const :tag "Unspecified/User-defined" none)                   (const :tag "Unspecified/User-defined" none)
# Line 182  decimal key must be specified." Line 182  decimal key must be specified."
182                   (character :tag "Numeric Keypad with Decimal Key"                   (character :tag "Numeric Keypad with Decimal Key"
183                              :match (lambda (widget value) (integerp value))                              :match (lambda (widget value) (integerp value))
184                              :value ?.)                              :value ?.)
185                   (const :tag "Numeric prefix arguments" prefix)                   (const :tag "Numeric prefix arguments" prefix)
186                   (const :tag "Cursor keys" cursor)                   (const :tag "Cursor keys" cursor)
187                   (const :tag "Shifted cursor keys" S-cursor)                   (const :tag "Shifted cursor keys" S-cursor)
188                   (const :tag "Unspecified/User-defined" none)                   (const :tag "Unspecified/User-defined" none)
# Line 244  the decimal key on the keypad is mapped Line 244  the decimal key on the keypad is mapped
244              [delete insert end down next left              [delete insert end down next left
245                      space right home up prior])                      space right home up prior])
246             ((eq setup 'S-cursor)             ((eq setup 'S-cursor)
247              [S-delete S-insert S-end S-down S-next S-left              [S-delete S-insert S-end S-down S-next S-left
248                        S-space S-right S-home S-up S-prior])                        S-space S-right S-home S-up S-prior])
249             ((eq setup 'none)             ((eq setup 'none)
250              nil)              nil)
# Line 268  the decimal key on the keypad is mapped Line 268  the decimal key on the keypad is mapped
268                  ((eq (aref kp i) 'S-kp-space)                  ((eq (aref kp i) 'S-kp-space)
269                   (define-key function-key-map [S-kp-begin]                   (define-key function-key-map [S-kp-begin]
270                     (if bind (vector (aref bind i)))))))                     (if bind (vector (aref bind i)))))))
271                    
272        (setq i (1+ i)))))        (setq i (1+ i)))))
273    
274  ;;; keypad.el ends here  ;;; keypad.el ends here

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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