workgroups2 Changeset - c584e55ee1e7

Changeset - c584e55ee1e7

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 13 years ago 2013-05-07 02:26:32
sergey@pashinin.com

new var wg-restore-remote-buffers - restore remote dirs or not

2 files changed with 10 insertions and 1 deletions:

src/workgroups-specialbufs.el

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-specialbufs.el

➞

Show inline comments

@@ @@ -10,14 +10,15 @@ @@
 ;; Dired
 (defun wg-deserialize-dired-buffer (buf)
   "Deserialize Dired buffer."
   (wg-dbind (this-function params) (wg-buf-special-data buf)
     (let ((dir (car params)))
       (if (or wg-restore-remote-buffers (not (wg-is-file-remote dir)))
           (if (file-exists-p dir)
           (dired dir))
+              (dired dir)))
       (current-buffer))))
 (defun wg-serialize-dired-buffer (buffer)
   "Serialize Dired buffer."
   (with-current-buffer buffer
     (when (eq major-mode 'dired-mode)

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -237,12 +237,20 @@ how to write your own." @@
 (defcustom wg-default-buffer "*scratch*"
   "Buffer made visible a window when the window's actual buffer
 can't be restored.  Also used when a blank workgroup is created."
   :type 'string
   :group 'workgroups)
 ;; What to restore:
 (defcustom wg-restore-remote-buffers t
   "nil means do not restore buffers that get \"t\" with
 `wg-is-file-remote'"
   :type 'boolean
   :group 'workgroups)
 (defcustom wg-restore-associated-buffers t
   "Non-nil means restore all buffers associated with the
 workgroup on workgroup restore."
   :type 'boolean
   :group 'workgroups)

0 comments (0 inline, 0 general)