diff options
| -rw-r--r-- | lisp/org/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/org/org-exp.el | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index e6b1e564de3..e576c4cf63c 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-03-08 Bastien Guerry <bzg@gnu.org> | ||
| 2 | |||
| 3 | * org-exp.el (org-export-normalize-links): Fix critical bug: do | ||
| 4 | not rely on `org-context' to guess where to prevent links | ||
| 5 | normalization. | ||
| 6 | |||
| 1 | 2013-02-28 Achim Gratz <Stromeko@Stromeko.DE> | 7 | 2013-02-28 Achim Gratz <Stromeko@Stromeko.DE> |
| 2 | 8 | ||
| 3 | * org.el (org-org-menu): Use correct key "C-u C-c C-x !" to do | 9 | * org.el (org-org-menu): Use correct key "C-u C-c C-x !" to do |
diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index 5ccaec3e67f..82b9003e4fd 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el | |||
| @@ -2113,8 +2113,7 @@ Also, store forced alignment information found in such lines." | |||
| 2113 | (put-text-property (match-beginning 0) (match-end 0) 'org-normalized-link t)) | 2113 | (put-text-property (match-beginning 0) (match-end 0) 'org-normalized-link t)) |
| 2114 | (goto-char (point-min)) | 2114 | (goto-char (point-min)) |
| 2115 | (while (re-search-forward re-plain-link nil t) | 2115 | (while (re-search-forward re-plain-link nil t) |
| 2116 | (unless (or (get-text-property (match-beginning 0) 'org-normalized-link) | 2116 | (unless (get-text-property (match-beginning 0) 'org-normalized-link) |
| 2117 | (assoc :tags (org-context))) | ||
| 2118 | (goto-char (1- (match-end 0))) | 2117 | (goto-char (1- (match-end 0))) |
| 2119 | (org-if-unprotected-at (1+ (match-beginning 0)) | 2118 | (org-if-unprotected-at (1+ (match-beginning 0)) |
| 2120 | (let* ((s (concat (match-string 1) | 2119 | (let* ((s (concat (match-string 1) |