From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Dec 2001 19:45:41 +0000 (+0000)
Subject: (Info-fontify-node): For a **** underline line, put the
X-Git-Tag: ttn-vms-21-2-B4~17402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b7eef5cad7ee3ec4ec1a510e7600675e149802c;p=emacs.git

(Info-fontify-node): For a **** underline line, put the
invisible and intangible props on the following newline, but not
on the previous newline or the last char of the previous line.
---

diff --git a/lisp/info.el b/lisp/info.el
index 7b433c9324f..7bbfcd9e79e 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2641,10 +2641,8 @@ the variable `Info-file-list-for-emacs'."
 	  ;; 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))))
+	    (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