Mercurial > emacs
comparison lisp/help-fns.el @ 103611:6f6def36a946
* help-fns.el (describe-function-1): Correctly locate adviced
functions in hyperlink (Bug#2438).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 28 Jun 2009 05:06:56 +0000 |
| parents | ee7d5d4ca6e7 |
| children | 4af91568dcc6 |
comparison
equal
deleted
inserted
replaced
| 103610:9f150a229376 | 103611:6f6def36a946 |
|---|---|
| 404 (princ "'") | 404 (princ "'") |
| 405 ;; Make a hyperlink to the library. | 405 ;; Make a hyperlink to the library. |
| 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)) |
| 413 (point))) | 413 (point))) |
| 414 (terpri)(terpri) | 414 (terpri)(terpri) |