(Info-fontify-node): fixed the call to add-text-properties

2 files changed, 11 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b36dbedebfa..1b8ff6bc055 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-22  Sam Steingold  <sds@gnu.org>
+
+        * info.el (Info-fontify-node): fixed the call to
+        `add-text-properties' (bug introduced on 2000-05-18).
+
 2000-05-22  Dave Love  <fx@gnu.org>
 
         * bindings.el: Remove debug-ignored-errors set in other files.
@@ -12,9 +17,9 @@
         quote keywords.
         (cmpl-string-case-type): Use character classes.
 
-        * comint.el: 
-        * textmodes/ispell.el: 
-        * imenu.el: 
+        * comint.el:
+        * textmodes/ispell.el:
+        * imenu.el:
         * mail/mh-e.el:
         * progmodes/compile.el: Add to debug-ignored-errors.
 
@@ -159,7 +164,7 @@
         * msb.el (msb-menu-cond): Add choice `user'.
 
 2000-05-18  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
-        
+
         * ps-print.el: Compatibility, customization and doc fix.
         (ps-printer-name-option): Replace defconst by defvar.
         (ps-postscript-code-directory): XEmacs compatibility.
@@ -394,7 +399,7 @@
         area.
         (syntax-code-table): Format changed.
         (string-to-syntax): Adjusted for the above change.
-        
+
 2000-05-12  Stefan Monnier  <monnier@cs.yale.edu>
 
         * font-lock.el (lisp-font-lock-keywords-1): Add define-minor-mode.
diff --git a/lisp/info.el b/lisp/info.el
index 01409b7d9f2..8b4efe5887a 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2299,7 +2299,7 @@ The alist key is the character the title is underlined with (?*, ?= or ?-)."
         ;; on frames that can display the font above.
         (if (memq (framep (selected-frame)) '(x pc w32))
             (add-text-properties (match-end 1) (match-end 2)
-                                 'invisible t 'intangible t)))
+                                 '(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