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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b36dbedebfac6e43fd78bf8bac7f1e6c68e9681f..1b8ff6bc055e58c827d498c06b4c6cafb04e9fa6 100644 (file)
--- 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 01409b7d9f28f3aa000e5d95fcd90da37130e64a..8b4efe5887a87591deaaf231e87b6e62c1de0b5f 100644 (file)
--- 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