From 6b7eef5cad7ee3ec4ec1a510e7600675e149802c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Dec 2001 19:45:41 +0000 Subject: [PATCH] (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. --- lisp/info.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 -- 2.39.2