From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 28 Jun 2009 05:06:56 +0000 (+0000)
Subject: * help-fns.el (describe-function-1): Correctly locate adviced
X-Git-Tag: emacs-pretest-23.1.90~2404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cebabb67a3761fd9ef97d092ee767d48c326aaed;p=emacs.git

* help-fns.el (describe-function-1): Correctly locate adviced
functions in hyperlink (Bug#2438).
---

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