From c584e55ee1e71eda1a77fa02737dbb85317a68cb 2013-05-07 02:26:32
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2013-05-07 02:26:32
Subject: [PATCH] new var wg-restore-remote-buffers - restore remote dirs or not

---

diff --git a/src/workgroups-specialbufs.el b/src/workgroups-specialbufs.el
index 8c4cd1f3c2577801518d5930394122a1e6ee5257..75aa29c54def33ee81d00fb5817325f623fca92c 100644
--- a/src/workgroups-specialbufs.el
+++ b/src/workgroups-specialbufs.el
@@ -13,8 +13,9 @@
   "Deserialize Dired buffer."
   (wg-dbind (this-function params) (wg-buf-special-data buf)
     (let ((dir (car params)))
-      (if (file-exists-p dir)
-          (dired dir))
+      (if (or wg-restore-remote-buffers (not (wg-is-file-remote dir)))
+          (if (file-exists-p dir)
+              (dired dir)))
       (current-buffer))))
 
 (defun wg-serialize-dired-buffer (buffer)
diff --git a/src/workgroups-variables.el b/src/workgroups-variables.el
index 26215c1754fe68d4b1d0ec25e0d1e20b6482f306..f816eb3f7c072b7e532eeb02fb23fc83324ac853 100644
--- a/src/workgroups-variables.el
+++ b/src/workgroups-variables.el
@@ -240,6 +240,14 @@ 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."