Clean up buffer cleanup test code.

* "main" -> persp-initial-frame-name. * use delq against persp-names directly. * mapc on kill-buffer + format.
nex3 · Oct 23, 2019 · 32ea467 · 32ea467
1 parent 03061f4
commit 32ea467
Showing 1 changed file with 3 additions and 5 deletions.
diff --git 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))))