소스 검색

Merge branch 'maint'

Nicolas Goaziou 9 년 전
부모
커밋
53472b9c44
1개의 변경된 파일3개의 추가작업 그리고 5개의 파일을 삭제
  1. 3 5
      lisp/org.el

+ 3 - 5
lisp/org.el

@@ -5803,11 +5803,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))