(turn-off-xterm-mouse-tracking): Doc fix.

[gnu-emacs] / lisp / edmacro.el

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 1b8a3b569c6629f7b8438ca982c2cc8b970460e9..8a3201567c1bd1fd0748724aa328149b4d0c84bc 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
@@ -722,4 +722,3 @@ If START or END is negative, it counts from the end."
 (provide 'edmacro)
 
 ;;; edmacro.el ends here
-