diff options
| author | Dave Love | 2003-09-10 17:52:28 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:52:28 +0000 |
| commit | 9dbbce4494849ba2507d4e12ad3a1af794e6da98 (patch) | |
| tree | f7762e5b398ba33e9cd6af8db8dd958a0d5e817b | |
| parent | 8bd3a3ad230a308d36ac766d2edba58ff43db6ae (diff) | |
| download | emacs-9dbbce4494849ba2507d4e12ad3a1af794e6da98.tar.gz emacs-9dbbce4494849ba2507d4e12ad3a1af794e6da98.zip | |
(keypad-setup): Use characterp.
| -rw-r--r-- | lisp/emulation/keypad.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el index 69dc8a3d3b0..47c9fead294 100644 --- a/lisp/emulation/keypad.el +++ b/lisp/emulation/keypad.el | |||
| @@ -233,7 +233,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'" | |||
| 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)) |