Mercurial > emacs
changeset 22850:e7684a1dd417
(describe-function-1): Fix the code that uses find-function-noselect.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 Jul 1998 23:04:03 +0000 |
| parents | d1d9c92ca734 |
| children | 2c2eb47ec8e3 |
| files | lisp/help.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Wed Jul 29 22:44:56 1998 +0000 +++ b/lisp/help.el Wed Jul 29 23:04:03 1998 +0000 @@ -619,8 +619,8 @@ (help-xref-button 1 #'(lambda (arg) (let ((location (find-function-noselect arg))) - (display-buffer (nth 0 location)) - (goto-char (nth 1 location)))) + (pop-to-buffer (car location)) + (goto-char (cdr location)))) function))))) (if need-close (princ ")")) (princ ".")