[Emacs-diffs] emacs/lisp ChangeLog help-fns.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/28 05:06:59

Modified files:
        lisp           : ChangeLog help-fns.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15736&r2=1.15737
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help-fns.el?cvsroot=emacs&r1=1.132&r2=1.133

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15736
retrieving revision 1.15737
diff -u -b -r1.15736 -r1.15737
--- ChangeLog   28 Jun 2009 04:54:07 -0000      1.15736
+++ ChangeLog   28 Jun 2009 05:06:56 -0000      1.15737
@@ -1,3 +1,8 @@
+2009-03-28  Juri Linkov  <address@hidden>
+
+       * help-fns.el (describe-function-1): Correctly locate adviced
+       functions in hyperlink (Bug#2438).
+
 2009-06-28  Chong Yidong  <address@hidden>
 
        * files.el (trash-directory): Change default to nil.

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -b -r1.132 -r1.133
--- help-fns.el 27 Feb 2009 04:01:23 -0000      1.132
+++ help-fns.el 28 Jun 2009 05:06:59 -0000      1.133
@@ -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))