diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-04 22:14:52 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-04 22:14:52 +0100 |
commit | 80cb1b0a09f53ae9a6dd37c7884ec6a26e29e12c (patch) | |
tree | 7ef05d679e90faa203697fea9d813dc28c413647 | |
parent | 592dc2ee7e4c80b9b61efb77117c8dc22d6cefd1 (diff) | |
download | org-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.el | 3 |
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) |