Fix fix for #1525
Original fix complained about void function setf persp-buffers.
This commit is contained in:
parent
823aa91aa2
commit
0cf669ab92
1 changed files with 9 additions and 5 deletions
|
@ -168,12 +168,16 @@ stored in `persp-save-dir'.")
|
||||||
|
|
||||||
(add-hook 'projectile-after-switch-project-hook #'+workspaces-switch-to-project-h)
|
(add-hook 'projectile-after-switch-project-hook #'+workspaces-switch-to-project-h)
|
||||||
|
|
||||||
(defun +workspaces--remove-dead-buffers (persp)
|
(defadvice! +workspaces--remove-dead-buffers-a (persp)
|
||||||
"Fixes #1525. Remove dead buffers from PERSP's buffer list."
|
"Fixes #1525. Remove dead buffers from PERSP's buffer list."
|
||||||
(when persp
|
:before #'persp-buffers-to-savelist
|
||||||
(setf (persp-buffers persp)
|
(when (and persp (persp-p persp))
|
||||||
(cl-remove-if-not #'buffer-live-p (persp-buffers persp)))))
|
(let (buffers-to-remove)
|
||||||
(advice-add #'persp-buffers-to-savelist :before #'+workspaces--remove-dead-buffers)
|
(dolist (buffer (persp-buffers persp))
|
||||||
|
(unless (buffer-live-p buffer)
|
||||||
|
(push buffer buffers-to-remove)))
|
||||||
|
(when buffers-to-remove
|
||||||
|
(persp-remove-buffer buffers-to-remove persp)))))
|
||||||
|
|
||||||
;; Fix #1017: stop session persistence from restoring a broken posframe
|
;; Fix #1017: stop session persistence from restoring a broken posframe
|
||||||
(after! posframe
|
(after! posframe
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue