Mercurial > emacs

comparison lisp/emulation/keypad.el @ 89490:db33d6285e97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(keypad-setup): Use characterp.
author Dave Love <fx@gnu.org>
date Wed, 10 Sep 2003 17:52:28 +0000
parents 375f2633d815
children 68c22ea6027c
comparison
equal deleted inserted replaced
89489:6afa33e621d8 89490:db33d6285e97
231 [S-kp-delete S-kp-insert S-kp-end S-kp-down S-kp-next S-kp-left 231 [S-kp-delete S-kp-insert S-kp-end S-kp-down S-kp-next S-kp-left
232 S-kp-space S-kp-right S-kp-home S-kp-up S-kp-prior]))) 232 S-kp-space S-kp-right S-kp-home S-kp-up S-kp-prior])))
233 (bind 233 (bind
234 (cond 234 (cond
235 ((or (eq setup 'numeric) 235 ((or (eq setup 'numeric)
236 (char-valid-p setup)) 236 (characterp setup))
237 (if (eq decimal 'numeric) 237 (if (eq decimal 'numeric)
238 (setq decimal nil)) 238 (setq decimal nil))
239 (vector (or decimal ?.) ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)) 239 (vector (or decimal ?.) ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))
240 ((eq setup 'prefix) 240 ((eq setup 'prefix)
241 [?\M-- ?\M-0 ?\M-1 ?\M-2 ?\M-3 ?\M-4 241 [?\M-- ?\M-0 ?\M-1 ?\M-2 ?\M-3 ?\M-4