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

functions in hyperlink (Bug#2438).

2 files changed, 6 insertions, 1 deletions

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  <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 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))