瀏覽代碼

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 年之前
父節點
當前提交
8f3b8ee44c
共有 1 個文件被更改,包括 1 次插入1 次删除
  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)