diff --git a/modules/feature/workspaces/test/autoload-workspaces.el b/modules/feature/workspaces/test/autoload-workspaces.el index 25701711b..d76cb3448 100644 --- a/modules/feature/workspaces/test/autoload-workspaces.el +++ b/modules/feature/workspaces/test/autoload-workspaces.el @@ -1,7 +1,6 @@ ;; -*- no-byte-compile: t; -*- ;;; feature/workspaces/test/autoload-workspaces.el -(load "persp-mode.el" nil t) (require! :feature workspaces) (defmacro with-workspace!! (buffer-args &rest body) @@ -10,11 +9,10 @@ (cl-loop for bsym in buffer-args collect `(,bsym (get-buffer-create ,(symbol-name bsym)))))) `(let ((persp-auto-resume-time -1) - (persp-auto-save-opt 0) - persp-autokill-buffer-on-remove - persp-names-cache - noninteractive) - (+workspaces|init) + (persp-auto-save-opt 0)) + (let (noninteractive) + (persp-mode +1)) + (+workspace-switch +workspaces-main t) (let* (,@buffers) (cl-loop with persp = (get-current-persp) for buf in (list ,@(mapcar #'car buffers)) @@ -22,10 +20,10 @@ do (with-current-buffer buf (setq buffer-file-name (make-temp-file "workspaces-test-")))) ,@body - (+workspace-delete +workspaces-main) (let (kill-buffer-query-functions kill-buffer-hook) (mapc #'kill-buffer (list ,@(mapcar #'car buffers))))) - (persp-mode -1)))) + (let (noninteractive) + (persp-mode -1))))) ;; `+workspaces|init' (def-test! init