Mercurial > emacs
comparison lisp/info.el @ 28967:05c01c4206d8
(Info-fontify-node): Add intangible property as well as
invisible.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 18 May 2000 13:07:26 +0000 |
parents | 36fd90774cf7 |
children | 602b7988fdb1 |
comparison
equal
deleted
inserted
replaced
28966:4005c645c1cf | 28967:05c01c4206d8 |
---|---|
2296 'face face)) | 2296 'face face)) |
2297 ;; This is a serious problem for trying to handle multiple | 2297 ;; This is a serious problem for trying to handle multiple |
2298 ;; frame types at once. We want this text to be invisible | 2298 ;; frame types at once. We want this text to be invisible |
2299 ;; on frames that can display the font above. | 2299 ;; on frames that can display the font above. |
2300 (if (memq (framep (selected-frame)) '(x pc w32)) | 2300 (if (memq (framep (selected-frame)) '(x pc w32)) |
2301 (put-text-property (match-end 1) (match-end 2) | 2301 (add-text-properties (match-end 1) (match-end 2) |
2302 'invisible t))) | 2302 'invisible t 'intangible t))) |
2303 (goto-char (point-min)) | 2303 (goto-char (point-min)) |
2304 (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) | 2304 (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) |
2305 (if (= (char-after (1- (match-beginning 0))) ?\") ; hack | 2305 (if (= (char-after (1- (match-beginning 0))) ?\") ; hack |
2306 nil | 2306 nil |
2307 (put-text-property (match-beginning 1) (match-end 1) | 2307 (put-text-property (match-beginning 1) (match-end 1) |