Fix #4205: void-function (setf persp-buffers)

This commit is contained in:
Henrik Lissner 2020-11-02 23:49:42 -05:00
parent 3e0432959a
commit 807f00a470
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -146,8 +146,10 @@ stored in `persp-save-dir'.")
;; or on some buffer listing ops. ;; or on some buffer listing ops.
(defadvice! +workspaces-remove-dead-buffers-a (persp) (defadvice! +workspaces-remove-dead-buffers-a (persp)
:before #'persp-buffers-to-savelist :before #'persp-buffers-to-savelist
(when (persp-p persp) (when (perspective-p persp)
(setf (persp-buffers persp) ;; HACK Can't use `persp-buffers' because of a race condition with its gv
;; getter/setter not being defined in time.
(setf (aref persp 2)
(cl-delete-if-not #'persp-get-buffer-or-null (persp-buffers persp))))) (cl-delete-if-not #'persp-get-buffer-or-null (persp-buffers persp)))))
;; Delete the current workspace if closing the last open window ;; Delete the current workspace if closing the last open window