diff options
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index 67be9f34a1..09872f3ef2 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -769,7 +769,7 @@ This function assumes that the events can be stored in a string." (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 |