comparison src/w32fns.c @ 90650:02cf29720f31

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 490-504) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 161-163) - Update from CVS - Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-130

90649:d53934e7ddef

  /* Do first time app init */

  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)
    {
      XSETINT (left, f->left_pos);

90650:02cf29720f31

  /* Do first time app init */

  if (!hprevinst)
    {
      w32_init_class (hinst);
    }

  if (f->size_hint_flags & USPosition || f->size_hint_flags & PPosition)
    {
      XSETINT (left, f->left_pos);