emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/workroom 9fb5cb793e 50/74: Fix buffer add/remove in projec


From: ELPA Syncer
Subject: [nongnu] elpa/workroom 9fb5cb793e 50/74: Fix buffer add/remove in project buffer manager
Date: Sun, 27 Nov 2022 16:03:28 -0500 (EST)

branch: elpa/workroom
commit 9fb5cb793e8e2ca16379946a6c743ea30bb78205
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Fix buffer add/remove in project buffer manager
---
 workroom.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/workroom.el b/workroom.el
index 5474cea1f3..6f382e3446 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1860,9 +1860,9 @@ argument while setting as the buffer manager, PROJECT, 
the project."
              (delete buffer
                      (plist-get (workroom-buffer-manager-data room)
                                 :blacklist)))
-       ;; If not still in the list, whitelist it.
-       (unless (memq buffer (workroom--project-buffer-manager
-                             room :list-buffers))
+       ;; If it's still not in the list, whitelist it.
+       (unless (workroom--project-buffer-manager
+                room :member-buffer-p buffer)
          (push buffer (plist-get (workroom-buffer-manager-data room)
                                  :whitelist)))))
     (:remove-buffer
@@ -1873,9 +1873,9 @@ argument while setting as the buffer manager, PROJECT, 
the project."
              (delete buffer
                      (plist-get (workroom-buffer-manager-data room)
                                 :whitelist)))
-       ;; If still in the list, blacklist it.
-       (when (memq buffer (workroom--project-buffer-manager
-                           room :list-buffers))
+       ;; If it's still in the list, blacklist it.
+       (when (workroom--project-buffer-manager
+              room :member-buffer-p buffer)
          (push buffer (plist-get (workroom-buffer-manager-data room)
                                  :blacklist)))))
     (:member-buffer-p



reply via email to

[Prev in Thread] Current Thread [Next in Thread]