Mercurial > emacs
changeset 35079:8f1a06c86ec8
(Info-fontify-node): Mark one more char as intangible.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Jan 2001 12:21:54 +0000 |
| parents | 5b3800ddebf0 |
| children | 4f39a5c11cc7 |
| files | lisp/info.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Jan 05 11:27:09 2001 +0000 +++ b/lisp/info.el Fri Jan 05 12:21:54 2001 +0000 @@ -2510,9 +2510,11 @@ ;; This is a serious problem for trying to handle multiple ;; frame types at once. We want this text to be invisible ;; on frames that can display the font above. - (if (memq (framep (selected-frame)) '(x pc w32 mac)) - (add-text-properties (match-end 1) (match-end 2) - '(invisible t intangible t)))) + (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)))) (goto-char (point-min)) (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack