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 | 60c11d20e812aafa9c5c42e70d9be97531281c2b (patch) | |
| tree | bfdd5d11da9113e80b9de6a6c0235ab9dcaed7f4 /lisp/edmacro.el | |
| parent | b657454c04187e8f8f244cc4b8af85ab9f802ccd (diff) | |
| download | emacs-60c11d20e812aafa9c5c42e70d9be97531281c2b.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)))))) |