diff options
| author | Matthew White <mehw.is.me@inventati.org> | 2021-07-08 13:33:23 +0000 |
|---|---|---|
| committer | Matthew White <mehw.is.me@inventati.org> | 2021-07-08 13:33:23 +0000 |
| commit | 8496095d3cc1ac851415f1dfff3899374155e392 (patch) | |
| tree | 27dd4f2fe99070fdc481e544b655f52ccaac60ad /test | |
| parent | b847965128695ac6e18a7a218e6e2d2d5a1bd8c9 (diff) | |
persp-test-with-persp: use delete, not delq, to remove strings
Strings comparison requires 'equal', not 'eq', i.e. 'delq' will not
remove "main" (aka 'persp-initial-frame-name') from '("main" "A")'.
Using 'delq', 'persp-test-with-persp' will try to improperly kill a
scratch buffer named "*scratch* (main)", if 'persp-names' returns a
list like '("main" "A")'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/test-perspective.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/test-perspective.el b/test/test-perspective.el index 7d514d8..f4da582 100644 --- a/test/test-perspective.el +++ b/test/test-perspective.el @@ -50,7 +50,7 @@ perspectives and open buffers." ;; get rid of perspective-specific *scratch* buffers first (mapc (lambda (persp) (kill-buffer (format "*scratch* (%s)" persp))) - (delq persp-initial-frame-name (persp-names))) + (delete persp-initial-frame-name (persp-names))) (persp-mode -1) (mapc #'kill-buffer (persp-test-buffer-list-all)))) |