From 32ea4672824f82f31c8a2604d3208307bcef153c Mon Sep 17 00:00:00 2001 From: Ryan Davis Date: Tue, 22 Oct 2019 19:47:50 -0700 Subject: Clean up buffer cleanup test code. * "main" -> persp-initial-frame-name. * use delq against persp-names directly. * mapc on kill-buffer + format. --- test/test-perspective.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/test/test-perspective.el b/test/test-perspective.el index e781168..88bed5f 100644 --- a/test/test-perspective.el +++ b/test/test-perspective.el @@ -48,11 +48,9 @@ perspectives and open buffers." (persp-mode 1) ,@body ;; get rid of perspective-specific *scratch* buffers first - (mapc #'kill-buffer (mapcar (lambda (persp) - (format "*scratch* (%s)" persp)) - (remove-if (lambda (persp) - (string-equal "main" persp)) - (persp-names)))) + (mapc (lambda (persp) + (kill-buffer (format "*scratch* (%s)" persp))) + (delq persp-initial-frame-name (persp-names))) (persp-mode -1) (mapc #'kill-buffer (persp-test-buffer-list-all)))) -- cgit v1.0