(keypad-setup): Use characterp.

diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el
index 69dc8a3..47c9fea 100644 (file)
--- 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 `.'"
         (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))