# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1246165616 0
# Node ID 6f6def36a946bd7b2d2b927498e10ed48e9304ee
# Parent  9f150a229376722208a7485669a3e5ce2e19c316
* help-fns.el (describe-function-1): Correctly locate adviced
functions in hyperlink (Bug#2438).

diff -r 9f150a229376 -r 6f6def36a946 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jun 28 04:54:06 2009 +0000
+++ b/lisp/ChangeLog	Sun Jun 28 05:06:56 2009 +0000
@@ -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 -r 9f150a229376 -r 6f6def36a946 lisp/help-fns.el
--- a/lisp/help-fns.el	Sun Jun 28 04:54:06 2009 +0000
+++ b/lisp/help-fns.el	Sun Jun 28 05:06:56 2009 +0000
@@ -406,7 +406,7 @@
 	(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))