diff options
author | Eli Zaretskii <eliz@gnu.org> | 2022-07-23 11:11:47 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2022-07-23 11:11:47 +0300 |
commit | 7263631dca6145354e994d84c9ff3e09c450739b (patch) | |
tree | a40ba7382b95ab7d19abf4d5710709063284f9df /lisp/help-fns.el | |
parent | ba7a75e052bfd24e99b79bbb161b2b0a99e7cce2 (diff) | |
download | emacs-7263631dca6145354e994d84c9ff3e09c450739b.tar.gz |
Fix bookmark support for Help functions in native-compilation builds
* lisp/help.el (describe-key--helper, describe-function--helper):
New helper functions.
(describe-key): Call 'describe-key--helper' instead of a
lambda-function.
* lisp/help-fns.el (describe-function): Call
'describe-function--helper' instead of a lambda-function.
(Bug#56643)
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r-- | lisp/help-fns.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6a7951d160e..656e7b7da24 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -251,13 +251,9 @@ handling of autoloaded functions." (or describe-function-orig-buffer (current-buffer)))) - (help-setup-xref - (list (lambda (function buffer) - (let ((describe-function-orig-buffer - (if (buffer-live-p buffer) buffer))) - (describe-function function))) - function describe-function-orig-buffer) - (called-interactively-p 'interactive)) + (help-setup-xref (list #'describe-function--helper + function describe-function-orig-buffer) + (called-interactively-p 'interactive)) (save-excursion (with-help-window (help-buffer) |