diff --git a/src/workgroups2.el b/src/workgroups2.el index ad303356f17489c037b1429d9bd04f58a0f42ea2..7a9a387c32f6b90e2db3985dedd3b8e3f30fc819 100644 --- a/src/workgroups2.el +++ b/src/workgroups2.el @@ -4199,10 +4199,11 @@ nil otherwise." (wg-workgroup-selected-frame-wconfig workgroup) nil))) ;; Garbage collection - (let ((all-buf-uids (wg-all-buf-uids))) - (wg-asetf (wg-buf-list) - (cl-remove-if-not (lambda (uid) (member uid all-buf-uids)) it - :key 'wg-buf-uid))) + ;; https://github.com/pashinin/workgroups2/issues/48 + ;;(let ((all-buf-uids (wg-all-buf-uids))) + ;; (wg-asetf (wg-buf-list) + ;; (cl-remove-if-not (lambda (uid) (member uid all-buf-uids)) it + ;; :key 'wg-buf-uid))) (mapc 'wg-workgroup-gc-buf-uids (wg-workgroup-list)) ; Remove buf uids that have no referent in `wg-buf-list' (mapc 'wg-update-buffer-in-buf-list (wg-buffer-list-emacs)))