Mercurial > emacs
changeset 78138:060d64b0dd47
(kmacro-bind-to-key): Avoid comparisons on function keys.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 15 Jul 2007 18:45:50 +0000 |
| parents | c56397e1e004 |
| children | cd6c36d75468 |
| files | lisp/kmacro.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/kmacro.el Sun Jul 15 18:40:19 2007 +0000 +++ b/lisp/kmacro.el Sun Jul 15 18:45:50 2007 +0000 @@ -795,8 +795,9 @@ ok cmd) (when (= (length key-seq) 1) (let ((ch (aref key-seq 0))) - (if (or (and (>= ch ?0) (<= ch ?9)) - (and (>= ch ?A) (<= ch ?Z))) + (if (and (integerp ch) + (or (and (>= ch ?0) (<= ch ?9)) + (and (>= ch ?A) (<= ch ?Z)))) (setq key-seq (concat "\C-x\C-k" key-seq) ok t)))) (when (and (not (equal key-seq ""))