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