mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-27 16:51:06 -07:00
(w32_createwindow): Remove code for handling -geometry command line option and
`initial-frame-alist' which is superfluous after the last change to `w32_createwindow'.
This commit is contained in:
parent
9c9f008165
commit
06c72792d6
1 changed files with 0 additions and 25 deletions
25
src/w32fns.c
25
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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue