diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-01-24 09:41:21 -0700 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-01-24 09:41:21 -0700 |
commit | 85974ce727f84e33f4d7570051354d8739585450 (patch) | |
tree | 8287420658f315e14d6cf23828ea583e7a387ac0 | |
parent | c82ca2f19aada8c7aeae6a2a98a54df9741a620b (diff) | |
download | org-mode-85974ce727f84e33f4d7570051354d8739585450.tar.gz |
killing all of the test buffers
-rw-r--r-- | testing/org-test.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/testing/org-test.el b/testing/org-test.el index 0ba0faf..3696db1 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -339,9 +339,10 @@ otherwise place the point at the beginning of the inserted text." (unless (get-file-buffer file) (add-to-list 'org-test-buffers (find-file file))))) -(defun org-test-bury-all-examples () - (mapcar (lambda (b) (when (buffer-live-p b) (bury-buffer b))) - org-test-buffers)) +(defun org-test-kill-all-examples () + (while org-test-buffers + (let ((b (pop org-test-buffers))) + (when (buffer-live-p b) (kill-buffer b))))) (defun org-test-update-id-locations () (org-id-update-id-locations @@ -371,7 +372,7 @@ Load all test files first." (org-test-touch-all-examples) (org-test-load) (ert "\\(org\\|ob\\)") - (org-test-bury-all-examples)) + (org-test-kill-all-examples)) (provide 'org-test) |