# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1274399695 -10800
# Node ID 57f3f40827c143a5e5c29d1d3b65453dff3e0f44
# Parent  fb43cf31d6f6773cc27d86c5fa809833b68b2dce
* 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)

diff -r fb43cf31d6f6 -r 57f3f40827c1 lisp/ChangeLog
--- 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
diff -r fb43cf31d6f6 -r 57f3f40827c1 lisp/help-mode.el
--- 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