From 2171e172b8c1cf5ce4d4bc6cb123050352623d00 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 21 Sep 2007 11:08:00 +0000 Subject: [PATCH] (suspend-frame): Call `iconify-or-deiconify-frame' also on w32 frames. --- lisp/ChangeLog | 9 +++++++-- lisp/frame.el | 2 +- 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 + + * frame.el (suspend-frame): Call `iconify-or-deiconify-frame' also + on w32 frames. + 2007-09-21 Stefan Monnier * 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) -- 2.39.2