andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2022-07-06 20:40:48 +03:00
parent 0e99046d62
commit 5866fd5fec
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/repeat.el
View file

@ -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))