diff options
| author | Juri Linkov <juri@linkov.net> | 2022-07-06 20:40:48 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-07-06 20:40:48 +0300 |
| commit | 5866fd5fecd93116f0885f55887a449d739c369c (patch) | |
| tree | 0f6f5702a74fa8efe7d924e7526b4ce8a4daf944 /lisp/repeat.el | |
| parent | 0e99046d62e71fb874cb9010e60ecfee289f84e9 (diff) | |
| download | emacs-5866fd5fecd93116f0885f55887a449d739c369c.tar.gz emacs-5866fd5fecd93116f0885f55887a449d739c369c.tar.bz2 emacs-5866fd5fecd93116f0885f55887a449d739c369c.zip | |
* lisp/repeat.el (describe-repeat-maps): Handle non-symbol keymap (bug#21634).
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 8 |
1 files changed, 6 insertions, 2 deletions
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)) |