diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-04-30 17:49:55 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-04-30 17:49:55 +0200 |
commit | 99a5d6bea82f0f0a680d348d91c29416a6669d15 (patch) | |
tree | 2571bfcdba51130325367a38517561e6a3970bc0 | |
parent | 803d76825acf5af6228178eef41d5e447b14997f (diff) | |
download | org-mode-99a5d6bea82f0f0a680d348d91c29416a6669d15.tar.gz |
org-element: Small fix to previous commit
* contrib/lisp/org-element.el (org-element-export-snippet-parser):
Small fix.
* testing/lisp/test-org-export.el: Fix test.
-rw-r--r-- | contrib/lisp/org-element.el | 1 | ||||
-rw-r--r-- | testing/lisp/test-org-export.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index 9f8df45..4521589 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -1933,6 +1933,7 @@ Assume point is at the beginning of the snippet." (inner-begin (match-end 0)) (inner-end (let ((count 1)) + (goto-char inner-begin) (while (and (> count 0) (re-search-forward "[<>]" nil t)) (if (equal (match-string 0) "<") (incf count) (decf count))) (1- (point)))) diff --git a/testing/lisp/test-org-export.el b/testing/lisp/test-org-export.el index 9967ce7..244d0df 100644 --- a/testing/lisp/test-org-export.el +++ b/testing/lisp/test-org-export.el @@ -303,7 +303,7 @@ text (ert-deftest test-org-export/export-snippet () "Test export snippets transcoding." - (org-test-with-temp-text "@test{A}@t{B}" + (org-test-with-temp-text "<test@A><t@B>" (org-test-with-backend "test" (flet ((org-test-export-snippet (snippet contents info) |