diff options
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/help-mode.el | 4 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c6ec59aa64..c6aebdd8f13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2010-05-20 Kevin Ryde <user42@zip.com.au> | ||
| 2 | |||
| 3 | * help-mode.el (help-make-xrefs): For Info node links turn | ||
| 4 | newlines into spaces. Link node names with newlines are matched | ||
| 5 | by help-xref-info-regexp and buttonized, this change ensures they | ||
| 6 | can be followed successfully with RET. (Bug#6206) | ||
| 7 | |||
| 1 | 2010-05-20 Juri Linkov <juri@jurta.org> | 8 | 2010-05-20 Juri Linkov <juri@jurta.org> |
| 2 | 9 | ||
| 3 | * locate.el (locate): Use pop-to-buffer instead of | 10 | * locate.el (locate): Use pop-to-buffer instead of |
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index bad4ae94e2a..f115e425325 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el | |||
| @@ -433,7 +433,9 @@ that." | |||
| 433 | (let ((data (match-string 2))) | 433 | (let ((data (match-string 2))) |
| 434 | (save-match-data | 434 | (save-match-data |
| 435 | (unless (string-match "^([^)]+)" data) | 435 | (unless (string-match "^([^)]+)" data) |
| 436 | (setq data (concat "(emacs)" data)))) | 436 | (setq data (concat "(emacs)" data))) |
| 437 | (setq data ;; possible newlines if para filled | ||
| 438 | (replace-regexp-in-string "[ \t\n]+" " " data t t))) | ||
| 437 | (help-xref-button 2 'help-info data)))) | 439 | (help-xref-button 2 'help-info data)))) |
| 438 | ;; URLs | 440 | ;; URLs |
| 439 | (save-excursion | 441 | (save-excursion |