From ded9f87ebce5975cda9ddc22f1fe5fde70a12128 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 20 Sep 2011 09:01:11 -0600 Subject: [PATCH] org-test-with-temp-text allows variable inputs holding strings * testing/org-test.el (org-test-with-temp-text): Allow variable inputs holding strings. --- testing/org-test.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/testing/org-test.el b/testing/org-test.el index 7789cbe58..da62892d7 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -166,17 +166,16 @@ files." mode holding TEXT. If the string \"\" appears in TEXT then remove it and place the point there before running BODY." (declare (indent 1)) - `(with-temp-buffer - (org-mode) - ,(let ((point (string-match (regexp-quote "") text))) - (if point - `(progn - (insert `(replace-match "" nil nil text)) - (goto-char ,(match-beginning 0))) - `(progn - (insert ,text) - (goto-char (point-min))))) - ,@body)) + (let ((inside-text (if (stringp text) text (eval text)))) + `(with-temp-buffer + (org-mode) + ,(let ((point (string-match (regexp-quote "") inside-text))) + (if point + `(progn (insert `(replace-match "" nil nil inside-text)) + (goto-char ,(match-beginning 0))) + `(progn (insert ,inside-text) + (goto-char (point-min))))) + ,@body))) ;;; Navigation Functions