From: Bastien Guerry Date: Fri, 8 Mar 2013 06:37:21 +0000 (+0100) Subject: Fix critical bug in Org. X-Git-Tag: emacs-24.3~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f186a0b537dfec9991dff2674888d119bdff049b;p=emacs.git Fix critical bug in Org. --- 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 @@ +2013-03-08 Bastien Guerry + + * org-exp.el (org-export-normalize-links): Fix critical bug: do + not rely on `org-context' to guess where to prevent links + normalization. + 2013-02-28 Achim Gratz * 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." (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 (or (get-text-property (match-beginning 0) 'org-normalized-link) - (assoc :tags (org-context))) + (unless (get-text-property (match-beginning 0) 'org-normalized-link) (goto-char (1- (match-end 0))) (org-if-unprotected-at (1+ (match-beginning 0)) (let* ((s (concat (match-string 1)