(suspend-frame): Call `iconify-or-deiconify-frame' also on w32 frames.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d529e3a6ea6..ef920fda5bb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2007-09-21  Juanma Barranquero  <lekktu@gmail.com>
+
+        * frame.el (suspend-frame): Call `iconify-or-deiconify-frame' also
+        on w32 frames.
+
 2007-09-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * startup.el (normal-top-level): Remove DISPLAY from
-        process-environment to let it be computed dynamically in callproc.c
+        process-environment to let it be computed dynamically in callproc.c.
 
         * frame.el (frame-initialize, make-frame):
         * faces.el (tty-set-up-initial-frame-faces):
@@ -258,7 +263,7 @@
         server-process-filter.
         (server-execute-continuation): New functions.
         (server-process-filter): Restructure so that all arguments are analysed
-        first and then acted upon in a subsequent stage  This way
+        first and then acted upon in a subsequent stage.  This way
         server-goto-toplevel can be executed later, when we know if
         it's necessary.
         Remove the "-version" and "-version-good" support.
diff --git a/lisp/frame.el b/lisp/frame.el
index 3e7eb9653c0..27dc4be1aa6 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -876,7 +876,7 @@ Calls `suspend-emacs' if invoked from the controlling tty device,
   (interactive)
   (let ((type (framep (selected-frame))))
     (cond
-     ((eq type 'x) (iconify-or-deiconify-frame))
+     ((memq type '(x w32)) (iconify-or-deiconify-frame))
      ((eq type t)
       (if (controlling-tty-p)
           (suspend-emacs)