# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958938549 0
# Node ID 26c9122ca0086158357275eed360f938a11e7b32
# Parent  52ff4adda042172faf767ffc7b4a34a899501210
(edmacro-parse-keys): Return vector if any elements are invalid
characters.

diff -r 52ff4adda042 -r 26c9122ca008 lisp/edmacro.el
--- a/lisp/edmacro.el	Sun May 21 17:48:48 2000 +0000
+++ b/lisp/edmacro.el	Sun May 21 19:49:09 2000 +0000
@@ -711,7 +711,7 @@
       (setq res (edmacro-subseq res 2 -2)))
     (if (and (not need-vector)
 	     (loop for ch across res
-		   always (and (integerp ch)
+		   always (and (char-valid-p ch)
 			       (let ((ch2 (logand ch (lognot ?\M-\^@))))
 				 (and (>= ch2 0) (<= ch2 127))))))
 	(concat (loop for ch across res