From ec2a94810d3bc226ddd07db141f51a4c8bdc7d7c 2014-03-11 21:53:12
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2014-03-11 21:53:12
Subject: [PATCH] Hints to test workgroup parameters set/get

---

diff --git a/src/workgroups-functions.el b/src/workgroups-functions.el
index d3231a80b9a2816caa820155b5edf38bafa55772..997e7ce1ac0294072c5eeddbe9f85cee6fa581d8 100644
--- a/src/workgroups-functions.el
+++ b/src/workgroups-functions.el
@@ -649,7 +649,11 @@ If OBJ is nil, return the current workgroup, or error unless NOERROR."
 
 
 ;;; workgroup parameters
-
+;;
+;; Quick test:
+;; (wg-workgroup-parameters (wg-current-workgroup))
+;; (wg-set-workgroup-parameter (wg-current-workgroup) 'test1 t)
+;; (wg-workgroup-parameter (wg-current-workgroup) 'test1)
 (defun wg-workgroup-parameter (workgroup parameter &optional default)
   "Return WORKGROUP's value for PARAMETER.
 If PARAMETER is not found, return DEFAULT which defaults to nil.
diff --git a/src/workgroups-structs.el b/src/workgroups-structs.el
index 5fba0378f0113048cef7074c2bd2520058253d4d..0f9cef180e0440297bd1220ba95195818c1cf12a 100644
--- a/src/workgroups-structs.el
+++ b/src/workgroups-structs.el
@@ -12,6 +12,7 @@
 ;; (wg-session-... (wg-current-session))
 ;; Like:
 ;; (wg-session-file-name (wg-current-session))
+;; (wg-workgroup-parameters (wg-current-workgroup))
 ;;
 ;; To set a value (in `wg-write-session-file'):
 ;;