diff options
| author | Dave Love | 2000-05-18 13:07:26 +0000 |
|---|---|---|
| committer | Dave Love | 2000-05-18 13:07:26 +0000 |
| commit | a198aa548e0ab281c214a3f97d6417f86f04c3a8 (patch) | |
| tree | 55c05444428996e621558c4ae2e318c92be2ce44 | |
| parent | 1473639373d7bbdb39acb60af43d4abd8932a5f1 (diff) | |
| download | emacs-a198aa548e0ab281c214a3f97d6417f86f04c3a8.tar.gz emacs-a198aa548e0ab281c214a3f97d6417f86f04c3a8.zip | |
(Info-fontify-node): Add intangible property as well as
invisible.
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index a65eadb81d4..01409b7d9f2 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2298,8 +2298,8 @@ The alist key is the character the title is underlined with (?*, ?= or ?-)." | |||
| 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 |