mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(edmacro-parse-keys): Use characterp.

Browse Source
This commit is contained in:
Dave Love 2003-09-10 17:53:50 +00:00
parent 93fd8eebcc
commit 97443772e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/edmacro.el
View File

@ -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