# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1184525150 0
# Node ID 060d64b0dd474bf42c41be4cfd3c710c15d5cb80
# Parent  c56397e1e00448faf2abf993d17b74e58c662d8c
(kmacro-bind-to-key): Avoid comparisons on function keys.

diff -r c56397e1e004 -r 060d64b0dd47 lisp/kmacro.el
--- 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 ""))