[Emacs-diffs] Changes to emacs/lisp/info.el

[Richard M. Stallman]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.291 emacs/lisp/info.el:1.292
*** emacs/lisp/info.el:1.291    Sat Dec 29 13:02:49 2001
--- emacs/lisp/info.el  Sun Dec 30 14:45:41 2001
***************
*** 2641,2650 ****
          ;; frame types at once.  We want this text to be invisible
          ;; on frames that can display the font above.
          (when (memq (framep (selected-frame)) '(x pc w32 mac))
!           (add-text-properties (match-end 1) (match-end 2)
!                                '(invisible t intangible t))
!           (add-text-properties (1- (match-end 1)) (match-end 2)
!                                '(intangible t))))
        (goto-char (point-min))
        (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t)
          (if (= (char-after (1- (match-beginning 0))) ?\") ; hack
--- 2641,2648 ----
          ;; frame types at once.  We want this text to be invisible
          ;; on frames that can display the font above.
          (when (memq (framep (selected-frame)) '(x pc w32 mac))
!           (add-text-properties (match-beginning 2) (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