Mercurial > emacs
changeset 29060:26c9122ca008
(edmacro-parse-keys): Return vector if any elements are invalid
characters.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 21 May 2000 19:49:09 +0000 |
parents | 52ff4adda042 |
children | 879e653bd683 |
files | lisp/edmacro.el |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/edmacro.el Sun May 21 17:48:48 2000 +0000 +++ b/lisp/edmacro.el Sun May 21 19:49:09 2000 +0000 @@ -711,7 +711,7 @@ (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