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

         ;; TODO: remove using dash
         (mapc (lambda (frame)
                 (if (string-equal "initial_terminal" (terminal-name frame))
                     (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))
 (defalias 'wg-write-session-file 'wg-save-session-as)
 (defun wg-get-session-file ()
@@ @@ -4316,13 +4315,13 @@ SESSION nil defaults to the current session." @@
   (wg-aget (wg-session-parameters (or session (wg-current-session)))
            parameter default))
 (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))
 (defun wg-remove-session-parameter (parameter &optional session)
   "Remove parameter PARAMETER from SESSION's parameters."

0 comments (0 inline, 0 general)