]> git.eshelyaron.com Git - emacs.git/commitdiff
(w32_createwindow): Remove code for handling -geometry command line option and
authorEli Zaretskii <eliz@gnu.org>
Sat, 4 Nov 2006 12:21:29 +0000 (12:21 +0000)
committerEli Zaretskii <eliz@gnu.org>
Sat, 4 Nov 2006 12:21:29 +0000 (12:21 +0000)
`initial-frame-alist' which is superfluous after the last change to
`w32_createwindow'.

src/w32fns.c

index f7e211649e0770d4241bb854a88c96d3ea342139..269e357f0a8f585bfef1373d891b71dcafd40cfa 100644 (file)
@@ -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)