From: Kevin Ryde Date: Thu, 20 May 2010 23:54:55 +0000 (+0300) Subject: * help-mode.el (help-make-xrefs): For Info node links turn X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~205^2~30 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a50878fabd9b1b8111ffbf458bf56bf4dc9094f8;p=emacs.git * 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 --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c6ec59aa64..c6aebdd8f13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2010-05-20 Kevin Ryde + + * 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 * 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." (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