Mercurial > emacs
changeset 89493:add0d115c419
(edmacro-parse-keys): Use characterp.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 10 Sep 2003 17:53:50 +0000 |
| parents | e4a7ba6f6d81 |
| children | 00ee0befb8b9 |
| files | lisp/edmacro.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/edmacro.el Wed Sep 10 17:53:26 2003 +0000 +++ b/lisp/edmacro.el Wed Sep 10 17:53:50 2003 +0000 @@ -717,7 +717,7 @@ (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