From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Jul 2007 18:45:59 +0000 (+0000)
Subject: (kmacro-bind-to-key): Avoid comparisons on function keys.
X-Git-Tag: emacs-pretest-22.1.90~1261
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be3eb6a6229303ee2d95ffe3942f07a46fb925a3;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 322c00b6660..3631cccab7f 100644
--- 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 bfc0edba2c1..4dc06a4ada3 100644
--- 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 ""))