summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-02-04 22:14:52 +0100
committerBastien Guerry <bzg@altern.org>2013-02-04 22:14:52 +0100
commit80cb1b0a09f53ae9a6dd37c7884ec6a26e29e12c (patch)
tree7ef05d679e90faa203697fea9d813dc28c413647
parent592dc2ee7e4c80b9b61efb77117c8dc22d6cefd1 (diff)
downloadorg-mode-80cb1b0a09f53ae9a6dd37c7884ec6a26e29e12c.tar.gz
org-exp.el (org-export-normalize-links): Don't match links within tags
* org-exp.el (org-export-normalize-links): Don't match links within tags. A headline with tags like :info:test: would not be exported correctly because info:test is first matched and normalized as a link.
-rw-r--r--lisp/org-exp.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 82b9003..5ccaec3 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -2113,7 +2113,8 @@ Also, store forced alignment information found in such lines."
(put-text-property (match-beginning 0) (match-end 0) 'org-normalized-link t))
(goto-char (point-min))
(while (re-search-forward re-plain-link nil t)
- (unless (get-text-property (match-beginning 0) 'org-normalized-link)
+ (unless (or (get-text-property (match-beginning 0) 'org-normalized-link)
+ (assoc :tags (org-context)))
(goto-char (1- (match-end 0)))
(org-if-unprotected-at (1+ (match-beginning 0))
(let* ((s (concat (match-string 1)