From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 24 May 2003 16:22:20 +0000 (+0000)
Subject: (iconify-or-deiconify-frame): Move to frame.el.
X-Git-Tag: ttn-vms-21-2-B4~9995
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25d887f06f28098a46c14e849c92ff156ff4e1d4;p=emacs.git

(iconify-or-deiconify-frame): Move to frame.el.
---

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 565f9a6b5b5..923f3f5ea14 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1,6 +1,6 @@
 ;;; w32-win.el --- parse switches controlling interface with W32 window system
 
-;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 2003 Free Software Foundation, Inc.
 
 ;; Author: Kevin Gallo
 ;; Keywords: terminals
@@ -1066,13 +1066,6 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 (global-set-key [f10] (lambda ()
 			(interactive) (w32-send-sys-command ?\xf100)))
 
-(defun iconify-or-deiconify-frame ()
-  "Iconify the selected frame, or deiconify if it's currently an icon."
-  (interactive)
-  (if (eq (cdr (assq 'visibility (frame-parameters))) t)
-      (iconify-frame)
-    (make-frame-visible)))
-
 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
 			   global-map)