Mercurial > emacs

comparison lisp/edmacro.el @ 16951:156fd377c7d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edmacro-parse-keys): Don't treat C-. or C-? as ASCII control char.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Jan 1997 07:48:16 +0000
parents e71331297a43
children e97bdda07a30
comparison
equal deleted inserted replaced
16950:65952d6205d6 16951:156fd377c7d0
691 (setq key (loop for x across word collect (+ x bits)))) 691 (setq key (loop for x across word collect (+ x bits))))
692 ((/= (length word) 1) 692 ((/= (length word) 1)
693 (error "%s must prefix a single character, not %s" 693 (error "%s must prefix a single character, not %s"
694 (substring orig-word 0 prefix) word)) 694 (substring orig-word 0 prefix) word))
695 ((and (/= (logand bits ?\C-\^@) 0) (stringp word) 695 ((and (/= (logand bits ?\C-\^@) 0) (stringp word)
696 (string-match "[@-_.a-z?]" word)) 696 ;; We used to accept . and ? here,
697 ;; but . is simply wrong,
698 ;; and C-? is not used (we use DEL instead).
699 (string-match "[@-_a-z]" word))
697 (setq key (list (+ bits (- ?\C-\^@) 700 (setq key (list (+ bits (- ?\C-\^@)
698 (if (equal word "?") 127 701 (if (equal word "?") 127
699 (logand (aref word 0) 31)))))) 702 (logand (aref word 0) 31))))))
700 (t 703 (t
701 (setq key (list (+ bits (aref word 0))))))))) 704 (setq key (list (+ bits (aref word 0)))))))))