(Info-fontify-node): Add intangible property as well as

invisible.

diff --git a/lisp/info.el b/lisp/info.el
index a65eadb81d4d806490bd6948153126dc5a49321c..01409b7d9f28f3aa000e5d95fcd90da37130e64a 100644 (file)
--- 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