Use cl-subseq

pashinin · Jul 30, 2014 · 2383e0d · 2383e0d
1 parent 4de89da
commit 2383e0d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/workgroups-win.el b/src/workgroups-win.el
@@ -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))