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

[Juri Linkov]

branch: master
commit 5866fd5fecd93116f0885f55887a449d739c369c
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/repeat.el (describe-repeat-maps): Handle non-symbol keymap 
(bug#21634).
---
 lisp/repeat.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/repeat.el b/lisp/repeat.el
index d69640a29c..a32f3a4c50 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))