Fix #4205: void-function (setf persp-buffers)
This commit is contained in:
parent
3e0432959a
commit
807f00a470
1 changed files with 4 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue