diff options
| author | Richard M. Stallman | 1997-01-31 07:48:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-31 07:48:16 +0000 |
| commit | 1e3b420bcb2f88ac3c941c1f5e657a99cf97a6c3 (patch) | |
| tree | 908d6c6d141e0c4685d3e9f8a72c8af673448634 | |
| parent | e1ebe229b95ef2b2395104ab1c6941efe089e1cb (diff) | |
| download | emacs-1e3b420bcb2f88ac3c941c1f5e657a99cf97a6c3.tar.gz emacs-1e3b420bcb2f88ac3c941c1f5e657a99cf97a6c3.zip | |
(edmacro-parse-keys): Don't treat C-. or C-? as ASCII control char.
| -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." | |||
| 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)))))) |