2641 |
;; frame types at once. We want this text to be invisible |
;; frame types at once. We want this text to be invisible |
2642 |
;; on frames that can display the font above. |
;; on frames that can display the font above. |
2643 |
(when (memq (framep (selected-frame)) '(x pc w32 mac)) |
(when (memq (framep (selected-frame)) '(x pc w32 mac)) |
2644 |
(add-text-properties (match-end 1) (match-end 2) |
(add-text-properties (match-beginning 2) (1+ (match-end 2)) |
2645 |
'(invisible t intangible t)) |
'(invisible t intangible t)))) |
|
(add-text-properties (1- (match-end 1)) (match-end 2) |
|
|
'(intangible t)))) |
|
2646 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2647 |
(while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) |
(while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) |
2648 |
(if (= (char-after (1- (match-beginning 0))) ?\") ; hack |
(if (= (char-after (1- (match-beginning 0))) ?\") ; hack |