2856 |
;; frame types at once. We want this text to be invisible |
;; frame types at once. We want this text to be invisible |
2857 |
;; on frames that can display the font above. |
;; on frames that can display the font above. |
2858 |
(when (memq (framep (selected-frame)) '(x pc w32 mac)) |
(when (memq (framep (selected-frame)) '(x pc w32 mac)) |
2859 |
(add-text-properties (match-beginning 2) (1+ (match-end 2)) |
(add-text-properties (1- (match-beginning 2)) (match-end 2) |
2860 |
'(invisible t)))) |
'(invisible t)))) |
2861 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2862 |
(while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t) |
(while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t) |