diff options
| author | Gregory Heytings <gregory@heytings.org> | 2022-09-05 21:28:32 +0000 |
|---|---|---|
| committer | Gregory Heytings <gregory@heytings.org> | 2022-09-05 23:30:14 +0200 |
| commit | c641848bce91fd0a67ba564669cc2602bba19791 (patch) | |
| tree | e6c9c3f441b8c349a1e241cc94527f730e28452e | |
| parent | 1763cd4727a4ff38a9ea89e1d532017adff05c1e (diff) | |
| download | emacs-c641848bce91fd0a67ba564669cc2602bba19791.tar.gz | |
Simplify describe-function.
* lisp/help-fns.el (describe-function-1): Do not pass
'describe-function-orig-buffer' as argument to...
(help-fns--key-bindings): but use it directly there instead.
This simplifies 1d1158397b.
| -rw-r--r-- | lisp/help-fns.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6d635ec9ee3..e223b10ba8e 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -510,13 +510,13 @@ the C sources, too." (src-file (locate-library file-name t nil 'readable))) (and src-file (file-readable-p src-file) src-file)))))) -(defun help-fns--key-bindings (function orig-buffer) +(defun help-fns--key-bindings (function) (when (commandp function) (let ((pt2 (with-current-buffer standard-output (point))) (remapped (command-remapping function))) (unless (memq remapped '(ignore undefined)) (let* ((all-keys - (with-current-buffer (or orig-buffer (current-buffer)) + (with-current-buffer describe-function-orig-buffer (where-is-internal (or remapped function) overriding-local-map nil nil))) (seps (seq-group-by @@ -1131,7 +1131,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." (string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" doc-raw) (autoload-do-load real-def)) - (help-fns--key-bindings function describe-function-orig-buffer) + (help-fns--key-bindings function) (with-current-buffer standard-output (let ((doc (condition-case nil ;; FIXME: Maybe `help-fns--signature' should return `doc' |