1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 4ec62152db5..68e9f40a10f 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -717,7 +717,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 (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