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

(edmacro-parse-keys): Return vector if any elements are invalid

Browse Source 
characters.
This commit is contained in:
Dave Love 2000-05-21 19:51:14 +00:00
parent cb7216a79a
commit ac2665815a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2000-05-21 Dave Love <fx@gnu.org>
* edmacro.el (edmacro-parse-keys): Return vector if any elements
are invalid characters.
* international/mule-util.el (detect-coding-with-priority): Use
mapc. Remove redundant lambda.

2
lisp/edmacro.el
View File

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