Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-13

[bpt/emacs.git] / lisp / emulation / keypad.el

diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el
index 5009ae8..fa6310e 100644 (file)
--- a/lisp/emulation/keypad.el
+++ b/lisp/emulation/keypad.el
@@ -234,7 +234,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'"
         (bind
          (cond
           ((or (eq setup 'numeric)
         (bind
          (cond
           ((or (eq setup 'numeric)

-               (char-valid-p setup))
+               (characterp setup))

            (if (eq decimal 'numeric)
                (setq decimal nil))
            (vector (or decimal ?.) ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))
            (if (eq decimal 'numeric)
                (setq decimal nil))
            (vector (or decimal ?.) ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))