From be3eb6a6229303ee2d95ffe3942f07a46fb925a3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 15 Jul 2007 18:45:59 +0000 Subject: [PATCH] (kmacro-bind-to-key): Avoid comparisons on function keys. --- lisp/ChangeLog | 2 ++ lisp/kmacro.el | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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 + * 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 "")) -- 2.39.2