# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063216430 0
# Node ID add0d115c419aa2dcd12a7fdfcf8586c1d8acdb7
# Parent  e4a7ba6f6d81853dfec190ad6feb49d6c92e1320
(edmacro-parse-keys): Use characterp.

diff -r e4a7ba6f6d81 -r add0d115c419 lisp/edmacro.el
--- a/lisp/edmacro.el	Wed Sep 10 17:53:26 2003 +0000
+++ b/lisp/edmacro.el	Wed Sep 10 17:53:50 2003 +0000
@@ -717,7 +717,7 @@
       (setq res (edmacro-subseq res 2 -2)))
     (if (and (not need-vector)
 	     (loop for ch across res
-		   always (and (char-valid-p ch)
+		   always (and (characterp ch)
 			       (let ((ch2 (logand ch (lognot ?\M-\^@))))
 				 (and (>= ch2 0) (<= ch2 127))))))
 	(concat (loop for ch across res