X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-commands.el;h=90b88fd98125af531d6ccf2478a48b6e89154019;hb=b6fd9b9bdccac5ebac313de4102fda000d2ca8f3;hp=38a2edb6a9de7d0613557716e127914e21d26240;hpb=9426a597f9b6ba184b96ba27e4050ec5d16411f3;p=riece

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 38a2edb..90b88fd 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -112,8 +112,23 @@
 
 (defun riece-command-configure-windows ()
   (interactive)
+  "Reconfigure windows with the current layout."
   (riece-redisplay-buffers t))
 
+(defun riece-command-suspend-resume ()
+  (interactive)
+  "Save or restore the current window configuration."
+  (let ((entry (assq 'riece-window-configuration (frame-parameters))))
+    (modify-frame-parameters (selected-frame)
+			     (list (cons 'riece-window-configuration
+					 (current-window-configuration))))
+    (if (cdr entry)
+	(set-window-configuration (cdr entry))
+      (delete-other-windows))
+    (message
+     (substitute-command-keys
+      "\\[riece-command-suspend-resume] to get back the last windows"))))
+
 (defun riece-command-change-layout (name)
   "Select a layout-name from all current available layouts and change
 the layout to the selected layout-name."
@@ -466,7 +481,7 @@ the layout to the selected layout-name."
 				 (format "PART %s\r\n"
 					 (riece-identity-prefix target))))))
 
-(defun riece-command-part (target)
+(defun riece-command-part (target &optional message)
   (interactive
    (progn
      (riece-check-channel-commands-are-usable)