workgroups2 Changeset - 8f6ee05ce83a

Changeset - 8f6ee05ce83a

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-23 07:18:03
sergey@pashinin.com

Check buf-uids, not buffers

1 file changed with 5 insertions and 2 deletions:

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -419,11 +419,14 @@ Pass FRAME to it. @@
 Remove file and dired buffers that are not associated with workgroup."
   (let ((lst (list))
         (res (wg-buffer-list-emacs frame))
         (wg-buffers (wg-workgroup-associated-buffers (wg-current-workgroup))))
         ;;(wg-buffers (wg-workgroup-associated-buffers (wg-current-workgroup)))
         (wg-buf-uids (wg-workgroup-associated-buf-uids (wg-current-workgroup))))
     (dolist (b res res)
       (when (and (or (buffer-file-name b)
                      (eq (buffer-local-value 'major-mode b) 'dired-mode))
                  (not (member b wg-buffers)))
                  ;;(not (member b wg-buffers))
                  (not (member (wg-buffer-uid-or-add b) wg-buf-uids)))
         (delq b res)))))
 (defconst wg-buffer-list-function (symbol-function 'buffer-list))

0 comments (0 inline, 0 general)