diff options
| author | Kevin Ryde | 2010-05-21 02:54:55 +0300 |
|---|---|---|
| committer | Juri Linkov | 2010-05-21 02:54:55 +0300 |
| commit | a50878fabd9b1b8111ffbf458bf56bf4dc9094f8 (patch) | |
| tree | 337b7fb89174601eba21dfe51982b998a65a91a3 | |
| parent | e1b9db1a257415bbe85290affc270f694a0f6221 (diff) | |
| download | emacs-a50878fabd9b1b8111ffbf458bf56bf4dc9094f8.tar.gz emacs-a50878fabd9b1b8111ffbf458bf56bf4dc9094f8.zip | |
* help-mode.el (help-make-xrefs): For Info node links turn
newlines into spaces. Link node names with newlines are matched
by help-xref-info-regexp and buttonized, this change ensures they
can be followed successfully with RET. (Bug#6206)
| -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 |