Mercurial > emacs
changeset 108725:57f3f40827c1
* 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)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 May 2010 02:54:55 +0300 |
| parents | fb43cf31d6f6 |
| children | 66c9aef964cc |
| files | lisp/ChangeLog lisp/help-mode.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 21 02:43:54 2010 +0300 +++ b/lisp/ChangeLog Fri May 21 02:54:55 2010 +0300 @@ -1,3 +1,10 @@ +2010-05-20 Kevin Ryde <user42@zip.com.au> + + * 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) + 2010-05-20 Juri Linkov <juri@jurta.org> * locate.el (locate): Use pop-to-buffer instead of
--- a/lisp/help-mode.el Fri May 21 02:43:54 2010 +0300 +++ b/lisp/help-mode.el Fri May 21 02:54:55 2010 +0300 @@ -433,7 +433,9 @@ (let ((data (match-string 2))) (save-match-data (unless (string-match "^([^)]+)" data) - (setq data (concat "(emacs)" data)))) + (setq data (concat "(emacs)" data))) + (setq data ;; possible newlines if para filled + (replace-regexp-in-string "[ \t\n]+" " " data t t))) (help-xref-button 2 'help-info data)))) ;; URLs (save-excursion