[Emacs-diffs] Changes to emacs/lisp/kmacro.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/07/24 01:21:33

Index: lisp/kmacro.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/kmacro.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- lisp/kmacro.el      18 Jul 2007 08:46:42 -0000      1.38
+++ lisp/kmacro.el      24 Jul 2007 01:21:31 -0000      1.39
@@ -798,8 +798,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 ""))