From 8e74ea3d1030bdcbcd02dfe8ae325340fd7b3dc3 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 24 Jan 2016 18:22:00 +0100 Subject: [PATCH] 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. --- lisp/org.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index d3c3c5bce..3bcb3a7ca 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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))