diff options
| author | Lars Ingebrigtsen | 2022-04-28 12:16:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-04-28 12:16:35 +0200 |
| commit | c7d49f91dac8afeb85cb8ee2b209f7ca4b363a4d (patch) | |
| tree | b615767f3d87621cb689f810f14a288c0e82cbfd | |
| parent | 3ba039dc96548fd7289bfbf411b050b88c98f0aa (diff) | |
| download | emacs-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.el | 2 |
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) |