aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-04-28 12:16:35 +0200
committerLars Ingebrigtsen2022-04-28 12:16:35 +0200
commitc7d49f91dac8afeb85cb8ee2b209f7ca4b363a4d (patch)
treeb615767f3d87621cb689f810f14a288c0e82cbfd
parent3ba039dc96548fd7289bfbf411b050b88c98f0aa (diff)
downloademacs-c7d49f91dac8afeb85cb8ee2b209f7ca4b363a4d.tar.gz
emacs-c7d49f91dac8afeb85cb8ee2b209f7ca4b363a4d.zip
Fix another help-fns--insert-menu-bindings parsing problem
* lisp/help-fns.el (help-fns--insert-menu-bindings): Fix keymap traversal when elements are symbols.
-rw-r--r--lisp/help-fns.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 9a6225d8589..0cb2c6d5d77 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -592,6 +592,8 @@ the C sources, too."
592 (start (point))) 592 (start (point)))
593 (seq-do-indexed 593 (seq-do-indexed
594 (lambda (entry level) 594 (lambda (entry level)
595 (when (symbolp map)
596 (setq map (symbol-function map)))
595 (when-let ((elem (assq entry (cdr map)))) 597 (when-let ((elem (assq entry (cdr map))))
596 (when heading 598 (when heading
597 (insert heading) 599 (insert heading)