diff options
| author | Ryan Davis <ryand-ruby@zenspider.com> | 2019-10-22 19:47:50 -0700 |
|---|---|---|
| committer | Ryan Davis <ryand-ruby@zenspider.com> | 2019-10-22 19:47:50 -0700 |
| commit | 32ea4672824f82f31c8a2604d3208307bcef153c (patch) | |
| tree | dde96a971a49bd94f5f00131a83f500916b5f486 | |
| parent | 03061f49aa26e345a0f91ff1a96c6a50977ed22f (diff) | |
Clean up buffer cleanup test code.
* "main" -> persp-initial-frame-name.
* use delq against persp-names directly.
* mapc on kill-buffer + format.
| -rw-r--r-- | test/test-perspective.el | 8 |
1 files 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)))) |