diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help-fns.el | 2 |
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 @@ | |||
| 1 | 2009-03-28 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * help-fns.el (describe-function-1): Correctly locate adviced | ||
| 4 | functions in hyperlink (Bug#2438). | ||
| 5 | |||
| 1 | 2009-06-28 Chong Yidong <cyd@stupidchicken.com> | 6 | 2009-06-28 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 7 | ||
| 3 | * files.el (trash-directory): Change default to nil. | 8 | * 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." | |||
| 406 | (with-current-buffer standard-output | 406 | (with-current-buffer standard-output |
| 407 | (save-excursion | 407 | (save-excursion |
| 408 | (re-search-backward "`\\([^`']+\\)'" nil t) | 408 | (re-search-backward "`\\([^`']+\\)'" nil t) |
| 409 | (help-xref-button 1 'help-function-def real-function file-name)))) | 409 | (help-xref-button 1 'help-function-def function file-name)))) |
| 410 | (princ ".") | 410 | (princ ".") |
| 411 | (with-current-buffer (help-buffer) | 411 | (with-current-buffer (help-buffer) |
| 412 | (fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-line 0) (point)) | 412 | (fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-line 0) (point)) |