From 7fe1da1f8c5a8bc54806700ea135135912f8f504 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 10 Apr 2014 11:53:27 +0200 Subject: [PATCH] org-test: Small code clean-up * testing/org-test.el (org-test-with-temp-text): Clean-up code. --- testing/org-test.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/testing/org-test.el b/testing/org-test.el index 463155017..4b99b7259 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 "") inside-text))) + (let ((point (string-match "" 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))