workgroups2 Changeset - f4f3b7c498f7

Changeset - f4f3b7c498f7

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2014-02-26 00:10:50
sergey@pashinin.com

Docstrings fixes and checks if variables are nil

1 file changed with 6 insertions and 2 deletions:

src/workgroups-functions.el

0 comments (0 inline, 0 general)

src/workgroups-functions.el

➞

Show inline comments

@@ @@ -1123,57 +1123,61 @@ BUFFER nil defaults to `current-buffer'." @@
       (wg-asetf (wg-buf-list) (cons new-buf (remove old-buf it))))))
 (defun wg-update-buf-list (&optional buffer-list)
   "Update all bufs in `wg-buf-list' corresponding to buffers in BUFFER-LIST."
   (mapc 'wg-update-buffer-in-buf-list (or buffer-list (buffer-list))))
 ;; gc buf uids
 (defun wg-workgroup-gc-buf-uids (workgroup)
   "Remove buf uids from WORKGROUP that have no referent in `wg-buf-list'."
   (wg-asetf (wg-workgroup-strong-buf-uids workgroup)
             (cl-remove-if-not 'wg-find-buf-by-uid it)
             (wg-workgroup-weak-buf-uids workgroup)
             (cl-remove-if-not 'wg-find-buf-by-uid it)))
 (defun wg-gc-buf-uids ()
   "Remove from all workgroups those buf uids that have no referent in `wg-buf-list'."
   (mapc 'wg-workgroup-gc-buf-uids (wg-workgroup-list)))
 ;; gc bufs
 (defun wg-wtree-buf-uids (wtree)
   "Return a new list of the buf uids of all wins in wtree."
   "Return a new list of the buf uids of all wins in WTREE."
   (if (not wtree)
       (error "WTREE is nil in `wg-wtree-buf-uids'!"))
   (wg-flatten-wtree wtree 'wg-win-buf-uid))
 (defun wg-wtree-unique-buf-uids (wtree)
-  "Return a list of the unique buf uids of all wins in wtree."
+  "Return a list of the unique buf uids of all wins in WTREE."
   (cl-remove-duplicates (wg-wtree-buf-uids wtree) :test 'string=))
 (defun wg-wconfig-buf-uids (wconfig)
   "Return WCONFIG's wtree's `wg-wtree-buf-uids'."
   (if (not (wg-wconfig-wtree wconfig))
       (error "WTREE is nil in `wg-wconfig-buf-uids'!"))
   (wg-wtree-unique-buf-uids (wg-wconfig-wtree wconfig)))
 (defun wg-workgroup-base-wconfig-buf-uids (workgroup)
   "Return a new list of all unique buf uids in WORKGROUP's working wconfig."
   (wg-wconfig-buf-uids (wg-workgroup-base-wconfig workgroup)))
 (defun wg-workgroup-saved-wconfigs-buf-uids (workgroup)
   "Return a new list of all unique buf uids in WORKGROUP's base wconfig."
   (cl-reduce 'wg-string-list-union
           (wg-workgroup-saved-wconfigs workgroup)
           :key 'wg-wconfig-buf-uids))
 (defun wg-workgroup-all-wconfig-buf-uids (workgroup)
   "Return a new list of all unique buf uids in WORKGROUP's wconfigs."
   (cl-union (wg-workgroup-base-wconfig-buf-uids workgroup)
          (wg-workgroup-saved-wconfigs-buf-uids workgroup)
          :test 'string=))
 (defun wg-workgroup-all-buf-uids (workgroup)
   "Return a new list of all unique buf uids in WORKGROUP."
   (cl-reduce 'wg-string-list-union
           (list (wg-workgroup-base-wconfig-buf-uids workgroup)
                 (wg-workgroup-saved-wconfigs-buf-uids workgroup)
                 (if wg-restore-associated-buffers

0 comments (0 inline, 0 general)