(kmacro-bind-to-key): Avoid comparisons on function keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 322c00b6660e2abb07a92f15cb302bba4185ff81..3631cccab7f23589acdf4ce09d2dacca95476254 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-07-15  Richard Stallman  <rms@gnu.org>
 
+       * kmacro.el (kmacro-bind-to-key): Avoid comparisons on function keys.
+
        * tutorial.el (tutorial--find-changed-keys):
        Handle C-x specially like ESC.
 

diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index bfc0edba2c1e6e2f1fe983da8bac3510f168c5b8..4dc06a4ada3e814306b2beba318d277b287fd1b7 100644 (file)
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -795,8 +795,9 @@ may be shaded by a local key binding."
          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 "\a"))