Mercurial > emacs
comparison lisp/info.el @ 51310:a8358d5d67b3
(Info-fontify-node): Hide \n------- rather than -------\n.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 28 May 2003 22:53:08 +0000 |
| parents | 956ab3f2a864 |
| children | 4c85e6a5a9d2 |
comparison
equal
deleted
inserted
replaced
| 51309:5b88e9170dbb | 51310:a8358d5d67b3 |
|---|---|
| 2854 'font-lock-face face)) | 2854 'font-lock-face face)) |
| 2855 ;; This is a serious problem for trying to handle multiple | 2855 ;; This is a serious problem for trying to handle multiple |
| 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) |
| 2863 (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack | 2863 (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack |
| 2864 (let ((start (match-beginning 0)) | 2864 (let ((start (match-beginning 0)) |