# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958655246 0
# Node ID 05c01c4206d8c7df22525c06b3c00972c2168e77
# Parent  4005c645c1cf72c9f689e886b399bd7b86b16100
(Info-fontify-node): Add intangible property as well as
invisible.

diff -r 4005c645c1cf -r 05c01c4206d8 lisp/info.el
--- a/lisp/info.el	Thu May 18 12:19:41 2000 +0000
+++ b/lisp/info.el	Thu May 18 13:07:26 2000 +0000
@@ -2298,8 +2298,8 @@
 	;; 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