diff options
| author | Dave Love <fx@gnu.org> | 2000-05-21 19:49:09 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-05-21 19:49:09 +0000 |
| commit | 6e9e6bb9390cc23a7a8419824b930d4db269c77b (patch) | |
| tree | 17a0c8fb6a1db68533ecd71017fda964005d0ca7 /lisp/edmacro.el | |
| parent | 1d25efdf814856a2ce56996730835e5132b2078d (diff) | |
| download | emacs-6e9e6bb9390cc23a7a8419824b930d4db269c77b.tar.gz | |
(edmacro-parse-keys): Return vector if any elements are invalid
characters.
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 1b8a3b569c6..d53bdb11359 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -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 |