diff options
| author | Dave Love <fx@gnu.org> | 2000-05-18 13:07:26 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-05-18 13:07:26 +0000 |
| commit | a198aa548e0ab281c214a3f97d6417f86f04c3a8 (patch) | |
| tree | 55c05444428996e621558c4ae2e318c92be2ce44 /lisp/info.el | |
| parent | 1473639373d7bbdb39acb60af43d4abd8932a5f1 (diff) | |
| download | emacs-a198aa548e0ab281c214a3f97d6417f86f04c3a8.tar.gz | |
(Info-fontify-node): Add intangible property as well as
invisible.
Diffstat (limited to 'lisp/info.el')
| -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 ?-)." ;; frame types at once. We want this text to be invisible ;; on frames that can display the font above. (if (memq (framep (selected-frame)) '(x pc w32)) - (put-text-property (match-end 1) (match-end 2) - 'invisible t))) + (add-text-properties (match-end 1) (match-end 2) + 'invisible t 'intangible t))) (goto-char (point-min)) (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack |