From 3828218c96358a1cf76f21f24e7358b5e622e07a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 5 Jan 2001 12:23:11 +0000 Subject: (Info-fontify-node): Mark one more char as intangible. --- lisp/info.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/info.el') 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 -- cgit v1.2.1