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 234f3d9b74dd372212a229028ac1b1c123aabffd..606093fd2935755d4d1c54a44075ac58b15b654a 100644 (file)
--- 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))))))))