Fix plain links fontification in a narrowed buffer

* lisp/org.el (org-activate-plain-links): Fix fontification when buffer
  is narrowed and (point-min) is no longer 1.
This commit is contained in:
Nicolas Goaziou 2016-01-24 18:22:00 +01:00
parent 921da3290a
commit 8e74ea3d10
1 changed files with 3 additions and 5 deletions

View File

@ -5851,11 +5851,9 @@ prompted for."
"Add link properties for plain links."
(let (f hl)
(when (and (re-search-forward (concat org-plain-link-re) limit t)
(not (member 'org-tag
(get-text-property (cond
((= 1 (match-beginning 0)) 1)
(t (1- (match-beginning 0))))
'face)))
(not (memq 'org-tag
(get-text-property
(max (1- (match-beginning 0)) (point-min)) 'face)))
(not (org-in-src-block-p)))
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
(setq f (get-text-property (match-beginning 0) 'face))