From cebabb67a3761fd9ef97d092ee767d48c326aaed Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 28 Jun 2009 05:06:56 +0000 Subject: [PATCH] * help-fns.el (describe-function-1): Correctly locate adviced functions in hyperlink (Bug#2438). --- lisp/ChangeLog | 5 +++++ lisp/help-fns.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd50bba543a..14f9557e78d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-03-28 Juri Linkov + + * help-fns.el (describe-function-1): Correctly locate adviced + functions in hyperlink (Bug#2438). + 2009-06-28 Chong Yidong * files.el (trash-directory): Change default to nil. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 8c323b94ee3..cbc140255e0 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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)) -- 2.39.2