workgroups2 Changeset - 6a5bc02bf190

Changeset - 6a5bc02bf190

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-25 12:38:44
sergey@pashinin.com

Check Emacs version

1 file changed with 6 insertions and 4 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -2013,10 +2013,11 @@ 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 (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)))))
       (unless (version< emacs-version "24")
         (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))
 (defun wg-toggle-window-dedicated-p ()
   ;; http://stackoverflow.com/questions/21151992/why-emacs-as-daemon-gives-1-more-frame-than-is-opened
   (if wg-control-frames
       (let ((fl (frame-list)))
         ;; TODO: remove using dash
         (mapc (lambda (frame)
                 (if (string-equal "initial_terminal" (terminal-name frame))
                     (delete frame fl))) fl)

0 comments (0 inline, 0 general)