From a198aa548e0ab281c214a3f97d6417f86f04c3a8 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 18 May 2000 13:07:26 +0000 Subject: [PATCH] (Info-fontify-node): Add intangible property as well as invisible. --- lisp/info.el | 4 ++-- 1 file 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 -- 2.39.5