diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-09-20 18:36:20 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-09-20 18:36:20 +0200 |
| commit | 96d2fb8d798fd8a3a7b34ccf46ed584384c7a9fe (patch) | |
| tree | adbb3d39d95cecd2a1ae09de06c4c787e3c4a022 /lisp/help.el | |
| parent | 814fd3057fb8f3122db86f30fde014f5e19502f5 (diff) | |
| parent | cefda4a6c521a01b031f5e94a31473a91d06eaea (diff) | |
| download | emacs-96d2fb8d798fd8a3a7b34ccf46ed584384c7a9fe.tar.gz emacs-96d2fb8d798fd8a3a7b34ccf46ed584384c7a9fe.tar.bz2 emacs-96d2fb8d798fd8a3a7b34ccf46ed584384c7a9fe.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 92b87cf7999..0ec5b9c85b8 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1204,7 +1204,10 @@ Otherwise, return a new string." (delete-char 2) (let* ((fun (intern (buffer-substring (point) (1- end-point)))) (key (with-current-buffer orig-buf - (where-is-internal fun keymap t)))) + (where-is-internal fun + (and keymap + (list keymap)) + t)))) (if (not key) ;; Function is not on any key. (let ((op (point))) |