(edmacro-parse-keys): Return vector if any elements are invalid

characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f19f4141d3dcc2760cbd9e6081e04f5b8bf5b76..1ebc720cae08584f646d918658f21602e2fe7c0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-05-21  Dave Love  <fx@gnu.org>
 
+       * edmacro.el (edmacro-parse-keys): Return vector if any elements
+       are invalid characters.
+
        * international/mule-util.el (detect-coding-with-priority): Use
        mapc.  Remove redundant lambda.
 

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 1b8a3b569c6629f7b8438ca982c2cc8b970460e9..d53bdb1135913df053ab2adc0070043fc84f5257 100644 (file)
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -711,7 +711,7 @@ If START or END is negative, it counts from the end."
       (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