workgroups2 Changeset - 5f5ffd177fa2

Changeset - 5f5ffd177fa2

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 11 years ago 2014-08-23 09:52:13
sergey@pashinin.com

Removed wg-switch-to-first-workgroup-on-find-session-file

2 files changed with 5 insertions and 12 deletions:

src/workgroups-session.el

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-session.el

➞

Show inline comments

@@ @@ -68,26 +68,27 @@ nil otherwise." @@
   (cond ((file-exists-p filename)
          (let ((session (wg-read-sexp-from-file filename)))
            (unless (wg-session-p session)
              (error "%S is not a Workgroups session file." filename))
            (setf (wg-session-file-name session) filename)
            (wg-reset-internal (wg-unpickel-session-parameters session)))
          (wg-awhen (and wg-switch-to-first-workgroup-on-find-session-file
                         (wg-workgroup-list))
          (if wg-control-frames
              (wg-restore-frames))
          (wg-awhen (wg-workgroup-list)
            (if (and wg-open-this-wg
                     (member wg-open-this-wg (wg-workgroup-names)))
                (wg-switch-to-workgroup wg-open-this-wg)
              (if (and wg-load-last-workgroup
                       (member (wg-session-parameter (wg-current-session t) 'last-workgroup)
                               (wg-workgroup-names)))
                  (wg-switch-to-workgroup
                   (wg-session-parameter (wg-current-session t) 'last-workgroup))
                (wg-switch-to-workgroup (car it)))
              ))
          (if wg-control-frames
              (wg-restore-frames))
          (wg-fontified-message (:cmd "Loaded: ") (:file filename)))
         (t
          (wg-query-and-save-if-modified)
          (wg-reset-internal (wg-make-session :file-name filename))
          (wg-fontified-message
            (:cmd "(New Workgroups session file)")))))

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -73,20 +73,12 @@ promts while Emacs is being started as daemon." @@
 (defcustom wg-open-this-wg nil
   "Try to open this workgroup on start.
 If nil - nothing happens."
   :type 'string
   :group 'workgroups)
 (defcustom wg-switch-to-first-workgroup-on-find-session-file t
   "Non-nil means switch to the first workgroup in a session file
 when it's found with `wg-find-session-file'."
   :type 'boolean
   :group 'workgroups)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; FIXME:
 ;;
 ;; Only set `wg-workgroup-base-wconfig' on `wg-write-session-file' or

0 comments (0 inline, 0 general)