workgroups2 Changeset - 4de89da5b7c2

Changeset - 4de89da5b7c2

Parent rev.

Child rev.

[Not reviewed]

0 1 0

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

Limit next, prev buffers

1 file changed with 2 insertions and 2 deletions:

src/workgroups-win.el

0 comments (0 inline, 0 general)

src/workgroups-win.el

➞

Show inline comments

@@ @@ -168,27 +168,27 @@ Return value." @@
     (with-selected-window window
       (setq win
             (wg-make-win
              :edges              (window-edges window)
              :point              (wg-window-point window)
              :start              (window-start window)
              :hscroll            (window-hscroll window)
              :selected           selected
              :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 (window-next-buffers window)))
+                            (wg-pickel (remove nil (subseq (window-next-buffers window) 0 4))))
       (wg-set-win-parameter win 'prev-buffers
                             (wg-pickel (window-prev-buffers window)))
+                            (wg-pickel (remove nil (subseq (window-prev-buffers window) 0 4))))
+      )
     win))
 (defun wg-toggle-window-dedicated-p ()
   "Toggle `window-dedicated-p' in `selected-window'."
   (interactive)
   (set-window-dedicated-p nil (not (window-dedicated-p)))
   (force-mode-line-update t)
   (wg-fontified-message
     (:cmd "Window:")
     (:cur (concat (unless (window-dedicated-p) " not") " dedicated"))))

0 comments (0 inline, 0 general)