workgroups2 Changeset - a1c97180ecd7

Changeset - a1c97180ecd7

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2013-08-25 21:46:48
sergey@pashinin.com

fixed constantly growing WG-file

Even when wg-restore-associated-buffers was nil workgroups file was
bigger and bigger. It's fixed now.

1 file changed with 3 insertions and 1 deletions:

src/workgroups-functions.el

0 comments (0 inline, 0 general)

src/workgroups-functions.el

➞

Show inline comments

@@ @@ -1370,13 +1370,15 @@ BUFFER nil defaults to `current-buffer'." @@
 (defun wg-workgroup-all-buf-uids (workgroup)
   "Return a new list of all unique buf uids in WORKGROUP."
   (reduce 'wg-string-list-union
           (list (wg-workgroup-base-wconfig-buf-uids workgroup)
                 (wg-workgroup-saved-wconfigs-buf-uids workgroup)
                 (wg-workgroup-associated-buf-uids workgroup))))
                 (if wg-restore-associated-buffers
                     (wg-workgroup-associated-buf-uids workgroup))
                 )))
 (defun wg-session-all-buf-uids (&optional session)
   "Return a new list of all unique buf uids in SESSION.
 SESSION nil defaults to `wg-current-session'."
   (reduce 'wg-string-list-union
           (wg-session-workgroup-list (or session (wg-current-session)))

0 comments (0 inline, 0 general)