diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-01-05 12:23:11 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-01-05 12:23:11 +0000 |
| commit | 3828218c96358a1cf76f21f24e7358b5e622e07a (patch) | |
| tree | 0db714f9142791aefb7d57b697fd19d89d6c4043 /lisp/info.el | |
| parent | 22b5642678678817a7ad829920250f7f778c9a14 (diff) | |
| download | emacs-3828218c96358a1cf76f21f24e7358b5e622e07a.tar.gz | |
(Info-fontify-node): Mark one more char as intangible.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index 21e32e76a4b..39f4c5df64a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2510,9 +2510,11 @@ the variable `Info-file-list-for-emacs'." ;; 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 |