diff options
| -rw-r--r-- | lisp/info.el | 6 |
1 files 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'." | |||
| 2641 | ;; frame types at once. We want this text to be invisible | 2641 | ;; frame types at once. We want this text to be invisible |
| 2642 | ;; on frames that can display the font above. | 2642 | ;; on frames that can display the font above. |
| 2643 | (when (memq (framep (selected-frame)) '(x pc w32 mac)) | 2643 | (when (memq (framep (selected-frame)) '(x pc w32 mac)) |
| 2644 | (add-text-properties (match-end 1) (match-end 2) | 2644 | (add-text-properties (match-beginning 2) (1+ (match-end 2)) |
| 2645 | '(invisible t intangible t)) | 2645 | '(invisible t intangible t)))) |
| 2646 | (add-text-properties (1- (match-end 1)) (match-end 2) | ||
| 2647 | '(intangible t)))) | ||
| 2648 | (goto-char (point-min)) | 2646 | (goto-char (point-min)) |
| 2649 | (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) | 2647 | (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) |
| 2650 | (if (= (char-after (1- (match-beginning 0))) ?\") ; hack | 2648 | (if (= (char-after (1- (match-beginning 0))) ?\") ; hack |