aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/help-mode.el
diff options
context:
space:
mode:
authorKevin Ryde2010-05-21 02:54:55 +0300
committerJuri Linkov2010-05-21 02:54:55 +0300
commita50878fabd9b1b8111ffbf458bf56bf4dc9094f8 (patch)
tree337b7fb89174601eba21dfe51982b998a65a91a3 /lisp/help-mode.el
parente1b9db1a257415bbe85290affc270f694a0f6221 (diff)
downloademacs-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)
Diffstat (limited to 'lisp/help-mode.el')
-rw-r--r--lisp/help-mode.el4
1 files changed, 3 insertions, 1 deletions
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