1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 5e895f250d6..5ccd46dad58 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2856,7 +2856,7 @@ 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-beginning 2) (1+ (match-end 2))
+            (add-text-properties (1- (match-beginning 2)) (match-end 2)
                                 '(invisible t))))
        (goto-char (point-min))
        (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)

diff --git a/lisp/info.el b/lisp/info.el index 5e895f250d6..5ccd46dad58 100644 --- a/lisp/info.el +++ b/lisp/info.el
@@ -2856,7 +2856,7 @@ the variable `Info-file-list-for-emacs'."
2856	;; frame types at once. We want this text to be invisible	2856	;; frame types at once. We want this text to be invisible
2857	;; on frames that can display the font above.	2857	;; on frames that can display the font above.
2858	(when (memq (framep (selected-frame)) '(x pc w32 mac))	2858	(when (memq (framep (selected-frame)) '(x pc w32 mac))
2859	(add-text-properties (match-beginning 2) (1+ (match-end 2))	2859	(add-text-properties (1- (match-beginning 2)) (match-end 2)
2860	'(invisible t))))	2860	'(invisible t))))
2861	(goto-char (point-min))	2861	(goto-char (point-min))
2862	(while (re-search-forward "\\(\\Note[ \t]\\)\n?[ \t]\\([^:]\\)\\(:[^.,:(]\\(([^)])[^.,:]*\\)?[,:]?\n?\\)" nil t)	2862	(while (re-search-forward "\\(\\Note[ \t]\\)\n?[ \t]\\([^:]\\)\\(:[^.,:(]\\(([^)])[^.,:]*\\)?[,:]?\n?\\)" nil t)