diff options
| author | Erik Naggum <erik@naggum.no> | 1997-02-05 01:33:07 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1997-02-05 01:33:07 +0000 |
| commit | e33f094113546da0ee95a7aa4e2f21e2d4638ac1 (patch) | |
| tree | 7436fbadeba1d534f98d7061aa3d13bf30c1cd13 /lisp | |
| parent | cfe5c7f7c3514817456bcfae601e884ed4910205 (diff) | |
| download | emacs-e33f094113546da0ee95a7aa4e2f21e2d4638ac1.tar.gz | |
(edmacro-parse-keys): Remove redundant test for ?.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/edmacro.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index b61cc559fd2..150160c802d 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -698,8 +698,7 @@ If START or END is negative, it counts from the end." ;; 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)))))) + (logand (aref word 0) 31))))) (t (setq key (list (+ bits (aref word 0))))))))) (when key |