Changeset - 95f679f6e195
[Not reviewed]
0 1 0
Sergey Pashinin - 11 years ago 2014-08-25 11:33:55
sergey@pashinin.com
First workgroup fix
1 file changed with 5 insertions and 4 deletions:
0 comments (0 inline, 0 general)
src/workgroups2.el
Show inline comments
 
@@ -4067,10 +4067,11 @@ current and previous workgroups."
 

	
 
(defun wg-create-first-wg ()
 
  "Create a first workgroup if needed."
 
  (if (and workgroups-mode
 
           wg-session-load-on-start
 
           (= (length (wg-workgroup-list)) 0))
 
      (wg-create-workgroup wg-first-wg-name)))
 
  (when (and workgroups-mode
 
             wg-session-load-on-start
 
             (= (length (wg-workgroup-list)) 0))
 
    (wg-create-workgroup wg-first-wg-name)
 
    (wg-mark-everything-unmodified)))
 

	
 
(defun wg-pickel-workgroup-parameters (workgroup)
 
  "Return a copy of WORKGROUP after pickeling its parameters.
0 comments (0 inline, 0 general)