workgroups2 Changeset - 20ec9e5e67f0

Changeset - 20ec9e5e67f0

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-28 10:55:01
sergey@pashinin.com

Check session parameter

1 file changed with 2 insertions and 3 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

                     (delete frame fl))) fl)
         (setq fl (delete (selected-frame) fl))
         (let (wg-flag-modified)
           (if (wg-current-session t)
               (wg-set-session-parameter 'frame-list (mapcar 'wg-frame-to-wconfig fl))))))
           (wg-set-session-parameter 'frame-list (mapcar 'wg-frame-to-wconfig fl)))))
   (wg-write-sexp-to-file (wg-pickel-all-session-parameters) filename)
   (wg-fontified-message (:cmd "Wrote: ") (:file filename))
   (wg-mark-everything-unmodified))
@@ @@ -4319,7 +4318,7 @@ SESSION nil defaults to the current session." @@
 (defun wg-set-session-parameter (parameter value &optional session)
   "Set PARAMETER to VALUE in SESSION.
 SESSION nil means use the current session.  Return value."
-  (let ((session (or session (wg-current-session))))
+  (-when-let (session (or session (wg-current-session t)))
     (wg-set-parameter (wg-session-parameters session) parameter value)
     (wg-flag-session-modified session)
     value))

0 comments (0 inline, 0 general)