diff options
| author | Bastien Guerry | 2013-03-08 07:37:21 +0100 |
|---|---|---|
| committer | Bastien Guerry | 2013-03-08 07:37:21 +0100 |
| commit | f186a0b537dfec9991dff2674888d119bdff049b (patch) | |
| tree | 61b8461014ef2b8df54d020e2bcc6b87a4f8a0bf | |
| parent | 0ad949709485b88e709f1e31e752ee1076326aaf (diff) | |
| download | emacs-f186a0b537dfec9991dff2674888d119bdff049b.tar.gz emacs-f186a0b537dfec9991dff2674888d119bdff049b.zip | |
Fix critical bug in Org.
| -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) |