# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063216348 0
# Node ID db33d6285e97d1456915f990d55667a49c352d4c
# Parent  6afa33e621d80d354d838910ab7a43d85909a25c
(keypad-setup): Use characterp.

diff -r 6afa33e621d8 -r db33d6285e97 lisp/emulation/keypad.el
--- a/lisp/emulation/keypad.el	Wed Sep 10 17:52:03 2003 +0000
+++ b/lisp/emulation/keypad.el	Wed Sep 10 17:52:28 2003 +0000
@@ -233,7 +233,7 @@
 	 (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))