mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* help-fns.el (describe-function-1): Correctly locate adviced

Browse source 
functions in hyperlink (Bug#2438).
This commit is contained in:
Chong Yidong 2009-06-28 05:06:56 +00:00
parent d63a01efdb
commit cebabb67a3
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-03-28 Juri Linkov <juri@jurta.org>
* help-fns.el (describe-function-1): Correctly locate adviced
functions in hyperlink (Bug#2438).
2009-06-28 Chong Yidong <cyd@stupidchicken.com>
* files.el (trash-directory): Change default to nil.

2
lisp/help-fns.el
View file

@ -406,7 +406,7 @@ suitable file is found, return nil."
(with-current-buffer standard-output
(save-excursion
(re-search-backward "`\\([^`']+\\)'" nil t)
(help-xref-button 1 'help-function-def real-function file-name))))
(help-xref-button 1 'help-function-def function file-name))))
(princ ".")
(with-current-buffer (help-buffer)
(fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-line 0) (point))