diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-04-10 11:53:27 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-04-10 11:53:27 +0200 |
| commit | 7fe1da1f8c5a8bc54806700ea135135912f8f504 (patch) | |
| tree | 48706201fce569e5caa6c521d3f541dccaabe173 | |
| parent | d01d22b74f3257a362411ade9a406f3bb00edb0e (diff) | |
| download | org-mode-7fe1da1f8c5a8bc54806700ea135135912f8f504.tar.gz | |
org-test: Small code clean-up
* testing/org-test.el (org-test-with-temp-text): Clean-up code.
| -rw-r--r-- | testing/org-test.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testing/org-test.el b/testing/org-test.el index 4631550..4b99b72 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -208,13 +208,13 @@ otherwise place the point at the beginning of the inserted text." `(let ((inside-text (if (stringp ,text) ,text (eval ,text)))) (with-temp-buffer (org-mode) - (let ((point (string-match (regexp-quote "<point>") inside-text))) + (let ((point (string-match "<point>" inside-text))) (if point (progn (insert (replace-match "" nil nil inside-text)) (goto-char (1+ (match-beginning 0)))) - (progn (insert inside-text) - (goto-char (point-min))))) + (insert inside-text) + (goto-char (point-min)))) ,@body))) (def-edebug-spec org-test-with-temp-text (form body)) |