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 `.'"
          (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))