From: Juri Linkov <juri@linkov.net>
Date: Wed, 6 Jul 2022 17:40:48 +0000 (+0300)
Subject: * lisp/repeat.el (describe-repeat-maps): Handle non-symbol keymap (bug#21634).
X-Git-Tag: emacs-29.0.90~1447^2~1137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5866fd5fecd93116f0885f55887a449d739c369c;p=emacs.git

* lisp/repeat.el (describe-repeat-maps): Handle non-symbol keymap (bug#21634).
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index d69640a29c4..a32f3a4c507 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -563,13 +563,17 @@ Used in `repeat-mode'."
           (insert "A list of keymaps used by commands with the symbol property `repeat-map'.\n\n")
 
           (dolist (keymap (sort keymaps (lambda (a b)
-                                          (string-lessp (car a) (car b)))))
+                                          (when (and (symbolp (car a))
+                                                     (symbolp (car b)))
+                                            (string-lessp (car a) (car b))))))
             (insert (format-message
                      "`%s' keymap is repeatable by these commands:\n"
                      (car keymap)))
             (dolist (command (sort (cdr keymap) #'string-lessp))
               (let* ((info (help-fns--analyze-function command))
-                     (map (list (symbol-value (car keymap))))
+                     (map (list (if (symbolp (car keymap))
+                                    (symbol-value (car keymap))
+                                  (car keymap))))
                      (desc (mapconcat (lambda (key)
                                         (propertize (key-description key)
                                                     'face 'help-key-binding))