From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 4 Nov 2006 12:21:29 +0000 (+0000)
Subject: (w32_createwindow): Remove code for handling -geometry command line option and
X-Git-Tag: emacs-pretest-22.0.91~351
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06c72792d6a1467f41e422966da32d885fd9cc45;p=emacs.git

(w32_createwindow): Remove code for handling -geometry command line option and
`initial-frame-alist' which is superfluous after the last change to
`w32_createwindow'.
---

diff --git a/src/w32fns.c b/src/w32fns.c
index f7e211649e0..269e357f0a8 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -2080,32 +2080,7 @@ w32_createwindow (f)
 
   if (!hprevinst)
     {
-      Lisp_Object ifa;
-
       w32_init_class (hinst);
-
-      /* Handle the -geometry command line option and the geometry
-	 settings in the registry.  They are decoded and put into
-	 initial-frame-alist by w32-win.el:x-handle-geometry.  */
-      ifa = Fsymbol_value (intern ("initial-frame-alist"));
-      if (CONSP (ifa))
-	{
-	  Lisp_Object lt = Fassq (Qleft, ifa);
-	  Lisp_Object tp = Fassq (Qtop,  ifa);
-
-	  if (!NILP (lt))
-	    {
-	      lt = XCDR (lt);
-	      if (INTEGERP (lt))
-		left = lt;
-	    }
-	  if (!NILP (tp))
-	    {
-	      tp = XCDR (tp);
-	      if (INTEGERP (tp))
-		top = tp;
-	    }
-	}
     }
 
   if (f->size_hint_flags & USPosition || f->size_hint_flags & PPosition)