Fix describe-function keybinding confusion

* lisp/help-fns.el (describe-function-1): Compute signature
in the original buffer, not in standard-output, so that
substitute-command-keys uses the proper keybindings.
This fixes Bug#21412, introduced in commit
2015-06-11T10:23:46-0700!eggert@cs.ucla.edu.
This commit is contained in:
Paul Eggert
2015-09-05 08:50:34 -07:00
parent dfc8f093f3
commit 6d2a3ca2fc

View File

@@ -614,9 +614,9 @@ FILE is the file where FUNCTION was probably defined."
(autoload-do-load real-def))
(help-fns--key-bindings function)
(with-current-buffer standard-output
(let ((doc (help-fns--signature function doc-raw sig-key
real-function nil)))
(let ((doc (help-fns--signature function doc-raw sig-key
real-function nil)))
(with-current-buffer standard-output
(run-hook-with-args 'help-fns-describe-function-functions function)
(insert "\n"
(or doc "Not documented."))))))))