From: Stephen Berman <stephen.berman@gmx.net>
Date: Thu, 20 Jul 2023 19:51:24 +0000 (+0200)
Subject: Fix last change to wid-edit.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c55e67081e9873a32b6e665e44f3e5a9c301255f;p=emacs.git

Fix last change to wid-edit.el

* lisp/wid-edit.el (widget-choose): Test for stringp instead of
char-or-string-p, since substitute-command-keys should only apply
to choice values that are strings. (Bug#64046, Message #37)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 234f3d9b74d..606093fd293 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -286,7 +286,7 @@ in the key vector, as in the argument of `define-key'."
   (let ((items (mapc (lambda (x)
                        (when (consp x)
                          (dotimes (i (1- (length x)))
-                           (when (char-or-string-p (nth i x))
+                           (when (stringp (nth i x))
                              (setcar (nthcdr i x)
                                      (substitute-command-keys
                                       (car (nthcdr i x))))))))