aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-05-28 22:53:08 +0000
committerStefan Monnier2003-05-28 22:53:08 +0000
commit75a756f1471f181a1226f05eeea50a206eae5a70 (patch)
tree55b1e32f1b77d1688570855af14b256796f8b204
parent9b5e7a5ca9af0b3f7d4649169499fd8303d24a57 (diff)
downloademacs-75a756f1471f181a1226f05eeea50a206eae5a70.tar.gz
emacs-75a756f1471f181a1226f05eeea50a206eae5a70.zip
(Info-fontify-node): Hide \n------- rather than -------\n.
-rw-r--r--lisp/info.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 5e895f250d6..5ccd46dad58 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2856,7 +2856,7 @@ the variable `Info-file-list-for-emacs'."
2856 ;; frame types at once. We want this text to be invisible 2856 ;; frame types at once. We want this text to be invisible
2857 ;; on frames that can display the font above. 2857 ;; on frames that can display the font above.
2858 (when (memq (framep (selected-frame)) '(x pc w32 mac)) 2858 (when (memq (framep (selected-frame)) '(x pc w32 mac))
2859 (add-text-properties (match-beginning 2) (1+ (match-end 2)) 2859 (add-text-properties (1- (match-beginning 2)) (match-end 2)
2860 '(invisible t)))) 2860 '(invisible t))))
2861 (goto-char (point-min)) 2861 (goto-char (point-min))
2862 (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t) 2862 (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)