]> code.delx.au - gnu-emacs/commitdiff
Fix critical bug in Org.
authorBastien Guerry <bzg@gnu.org>
Fri, 8 Mar 2013 06:37:21 +0000 (07:37 +0100)
committerBastien Guerry <bzg@gnu.org>
Fri, 8 Mar 2013 06:37:21 +0000 (07:37 +0100)
lisp/org/ChangeLog
lisp/org/org-exp.el

index e6b1e564de3cdf402b457717fdc83bb4a48fe9f4..e576c4cf63c76835c57c498f2ec96b14028eab6a 100644 (file)
@@ -1,3 +1,9 @@
+2013-03-08  Bastien Guerry  <bzg@gnu.org>
+
+       * 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  <Stromeko@Stromeko.DE>
 
        * org.el (org-org-menu): Use correct key "C-u C-c C-x !" to do
index 5ccaec3e67fcb1ad952772b50abdd159473739cc..82b9003e4fdc125fe351b2c76bce08e4b38ecc4d 100644 (file)
@@ -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)