Emacs geometry

Ralf Angeli <angelicaeruleus.net> writes:

> * Eli Zaretskii (2006-07-28) writes:
>
>>> > Sorry, this part was bad advice: you
cannot look up left and top in
>>> > initial-frame-alist,
>>> 
>>> Hm, couldn't one get the value from the Lisp
level?
>>
>> Of course, you could: use `intern'.  But I suspect
that, by the time
>> w32_createwindow runs, the left and top frame
parameters were already
>> removed from initial-frame-alist and put into the
`top_pos' and
>> `left_pos' members of struct frame that is passed
to w32_createwindow.
>> But please verify that, I could be wrong.
>
> Hm, something seems to be there.  If I insert
>
>   Lisp_Object foo = Qnil;
>   foo = Fsymbol_value (intern
("initial-frame-alist"));
>   if (CONSP (foo) && Fassq (Qtop, foo)
&& Fassq (Qleft, foo))
>     printf ("top: %d, left: %d", XCDR
(Fassq (Qtop, foo)),
> 	    XCDR (Fassq (Qleft, foo)));

Does this give correct results?

    printf ("top: %d, left: %d", XINT (XCDR
(Fassq (Qtop, foo))),
	    XINT (XCDR (Fassq (Qleft, foo))));

>   else
>     printf ("no");
>
> into `w32_createwindow' and call Emacs with -g
80x30+20+10 the output
> top: 80, left: 160
> appears in the shell.  Does anybody know why the output
is eight times
> the input?
>
> Thanks for the valuable hints so far.
>
> -- 
> Ralf

-- 
Kim F. Storm <stormcua.dk> http://www.cua.dk



_______________________________________________
Emacs-devel mailing list
Emacs-develgnu.org
htt
p://lists.gnu.org/mailman/listinfo/emacs-devel