diff options
| author | Dave Love | 2003-09-10 17:53:50 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:53:50 +0000 |
| commit | 97443772e0967cbcfdb5e7f7a650256c7ea8b83e (patch) | |
| tree | 0c1254bbf6d6b9f7e445c0ef1e036f063d2a72d6 | |
| parent | 93fd8eebcc43afc1879fbe2b6a08ae88f5e4e12a (diff) | |
| download | emacs-97443772e0967cbcfdb5e7f7a650256c7ea8b83e.tar.gz emacs-97443772e0967cbcfdb5e7f7a650256c7ea8b83e.zip | |
(edmacro-parse-keys): Use characterp.
| -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 4ec62152db5..68e9f40a10f 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el | |||
| @@ -717,7 +717,7 @@ If START or END is negative, it counts from the end." | |||
| 717 | (setq res (edmacro-subseq res 2 -2))) | 717 | (setq res (edmacro-subseq res 2 -2))) |
| 718 | (if (and (not need-vector) | 718 | (if (and (not need-vector) |
| 719 | (loop for ch across res | 719 | (loop for ch across res |
| 720 | always (and (char-valid-p ch) | 720 | always (and (characterp ch) |
| 721 | (let ((ch2 (logand ch (lognot ?\M-\^@)))) | 721 | (let ((ch2 (logand ch (lognot ?\M-\^@)))) |
| 722 | (and (>= ch2 0) (<= ch2 127)))))) | 722 | (and (>= ch2 0) (<= ch2 127)))))) |
| 723 | (concat (loop for ch across res | 723 | (concat (loop for ch across res |