Browse Source

testing/org-test.el: Fix `org-test-with-temp-text'.

* org-test.el (org-test-with-temp-text): No need to kill a
temporary buffer.  Don't use (prog1 ,@body ...), only expand
,@body.

Thanks to Nick Dokos for pointing this.
Bastien Guerry 12 years ago
parent
commit
8f3b8ee44c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      testing/org-test.el

+ 1 - 1
testing/org-test.el

@@ -201,7 +201,7 @@ otherwise place the point at the beginning of the inserted text."
 		      (goto-char ,(match-beginning 0)))
 	    `(progn (insert ,inside-text)
 		    (goto-char (point-min)))))
-       (prog1 ,@body (kill-buffer)))))
+       ,@body)))
 (def-edebug-spec org-test-with-temp-text (form body))
 
 (defmacro org-test-with-temp-text-in-file (text &rest body)