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

functions in hyperlink (Bug#2438).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd50bba543afe0f03ecd7f6b62217748b1b4e7ab..14f9557e78d500386d03fa300864cf3e62d536c1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 8c323b94ee33ca7be61e7c00d66e767143cb110b..cbc140255e028bb75d33c34d7bdc584745876bce 100644 (file)
--- 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))