Mercurial > emacs

comparison lisp/edmacro.el @ 89493:add0d115c419

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edmacro-parse-keys): Use characterp.
author Dave Love <fx@gnu.org>
date Wed, 10 Sep 2003 17:53:50 +0000
parents 375f2633d815
children 68c22ea6027c
comparison
equal deleted inserted replaced
89492:e4a7ba6f6d81 89493:add0d115c419
715 (eq (aref res (- (length res) 2)) ?\C-x) 715 (eq (aref res (- (length res) 2)) ?\C-x)
716 (eq (aref res (- (length res) 1)) ?\))) 716 (eq (aref res (- (length res) 1)) ?\)))
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
724 collect (if (= (logand ch ?\M-\^@) 0) 724 collect (if (= (logand ch ?\M-\^@) 0)
725 ch (+ ch 128)))) 725 ch (+ ch 128))))