aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBastien Guerry2013-03-08 07:37:21 +0100
committerBastien Guerry2013-03-08 07:37:21 +0100
commitf186a0b537dfec9991dff2674888d119bdff049b (patch)
tree61b8461014ef2b8df54d020e2bcc6b87a4f8a0bf
parent0ad949709485b88e709f1e31e752ee1076326aaf (diff)
downloademacs-f186a0b537dfec9991dff2674888d119bdff049b.tar.gz
emacs-f186a0b537dfec9991dff2674888d119bdff049b.zip
Fix critical bug in Org.
-rw-r--r--lisp/org/ChangeLog6
-rw-r--r--lisp/org/org-exp.el3
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 @@
12013-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
12013-02-28 Achim Gratz <Stromeko@Stromeko.DE> 72013-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)