* riece.el (riece-exit): Clear riece-window-configuration frame
authorDaiki Ueno <ueno@unixuser.org>
Sat, 5 Feb 2005 13:22:02 +0000 (13:22 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 5 Feb 2005 13:22:02 +0000 (13:22 +0000)
parameter.
* riece-commands.el (riece-command-suspend-resume): Don't attempt
to restore window-configuration if the cdr of
riece-window-configuration frame parameter is nil.

lisp/ChangeLog
lisp/riece-commands.el
lisp/riece.el

index 34e7807..7e93b8c 100644 (file)
@@ -1,5 +1,11 @@
 2005-02-05  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece.el (riece-exit): Clear riece-window-configuration frame
+       parameter.
+       * riece-commands.el (riece-command-suspend-resume): Don't attempt
+       to restore window-configuration if the cdr of
+       riece-window-configuration frame parameter is nil.
+
        * riece-filter.el (riece-chomp-string): New function.
        (riece-filter): Use it.
 
index e65173a..2fd4d8b 100644 (file)
     (modify-frame-parameters (selected-frame)
                             (list (cons 'riece-window-configuration
                                         (current-window-configuration))))
-    (if entry
+    (if (cdr entry)
        (set-window-configuration (cdr entry))
       (delete-other-windows))
     (message
index c736b4b..8b00907 100644 (file)
@@ -375,11 +375,9 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
        riece-operator-indicator "-"
        riece-channel-status-indicator "-"
        riece-freeze-indicator "-")
-  (let ((window-configuration
-        (cdr (assq 'riece-window-configuration (frame-parameters)))))
-    (if window-configuration
-       (set-window-configuration window-configuration)
-      (delete-other-windows)))
+  (modify-frame-parameters (selected-frame)
+                          (list (list 'riece-window-configuration)))
+  (delete-other-windows)
   (run-hooks 'riece-exit-hook))
 
 (defun riece-command-mode ()