diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-31 07:48:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-31 07:48:16 +0000 |
| commit | 1e3b420bcb2f88ac3c941c1f5e657a99cf97a6c3 (patch) | |
| tree | 908d6c6d141e0c4685d3e9f8a72c8af673448634 /lisp/edmacro.el | |
| parent | e1ebe229b95ef2b2395104ab1c6941efe089e1cb (diff) | |
| download | emacs-1e3b420bcb2f88ac3c941c1f5e657a99cf97a6c3.tar.gz | |
(edmacro-parse-keys): Don't treat C-. or C-? as ASCII control char.
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index 973ef680f80..b61cc559fd2 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -693,7 +693,10 @@ If START or END is negative, it counts from the end." (error "%s must prefix a single character, not %s" (substring orig-word 0 prefix) 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-\^@) (if (equal word "?") 127 (logand (aref word 0) 31)))))) |