workgroups2 Changeset - 2383e0d99307

Changeset - 2383e0d99307

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-07-30 08:16:31
sergey@pashinin.com

Use cl-subseq

1 file changed with 4 insertions and 4 deletions:

src/workgroups-win.el

0 comments (0 inline, 0 general)

src/workgroups-win.el

➞

Show inline comments

@@ @@ -176,10 +176,10 @@ Return value." @@
              :minibuffer-scroll  (eq window minibuffer-scroll-window)
              :dedicated          (window-dedicated-p window)
              :buf-uid            (wg-buffer-uid-or-add (window-buffer window))))
       (wg-set-win-parameter win 'next-buffers
                             (wg-pickel (remove nil (subseq (window-next-buffers window) 0 4))))
       (wg-set-win-parameter win 'prev-buffers
                             (wg-pickel (remove nil (subseq (window-prev-buffers window) 0 4))))
       (wg-set-win-parameter
        win 'next-buffers (wg-pickel (remove nil (cl-subseq (window-next-buffers window) 0 4))))
       (wg-set-win-parameter
        win 'prev-buffers (wg-pickel (remove nil (cl-subseq (window-prev-buffers window) 0 4))))
+      )
     win))

0 comments (0 inline, 0 general)