Mercurial > emacs
changeset 42432:c629dcecd1ca
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Dec 2001 19:45:41 +0000 |
| parents | afe645af8f4b |
| children | 21907e7569d1 |
| files | lisp/info.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun Dec 30 19:39:15 2001 +0000 +++ b/lisp/info.el Sun Dec 30 19:45:41 2001 +0000 @@ -2641,10 +2641,8 @@ ;; 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