Commit 1e3b420b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(edmacro-parse-keys): Don't treat C-. or C-? as ASCII control char.

parent e1ebe229
...@@ -693,7 +693,10 @@ If START or END is negative, it counts from the end." ...@@ -693,7 +693,10 @@ If START or END is negative, it counts from the end."
(error "%s must prefix a single character, not %s" (error "%s must prefix a single character, not %s"
(substring orig-word 0 prefix) word)) (substring orig-word 0 prefix) word))
((and (/= (logand bits ?\C-\^@) 0) (stringp word) ((and (/= (logand bits ?\C-\^@) 0) (stringp word)
(string-match "[@-_.a-z?]" word)) ;; We used to accept . and ? here,
;; but . is simply wrong,
;; and C-? is not used (we use DEL instead).
(string-match "[@-_a-z]" word))
(setq key (list (+ bits (- ?\C-\^@) (setq key (list (+ bits (- ?\C-\^@)
(if (equal word "?") 127 (if (equal word "?") 127
(logand (aref word 0) 31)))))) (logand (aref word 0) 31))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment