all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#1522: 23.0.60; unable to set fullheight and fixed width in one command
@ 2009-01-03 18:04 martin rudalics
  2009-01-03 22:11 ` Allan Gottlieb
  0 siblings, 1 reply; 4+ messages in thread
From: martin rudalics @ 2009-01-03 18:04 UTC (permalink / raw)
  To: 1522; +Cc: Allan Gottlieb

[-- Attachment #1: Type: text/plain, Size: 422 bytes --]

 > M-: (modify-frame-parameters nil '( (fullscreen . fullheight) (width . 170) ))
 >
 > The height is set, but the width is not.  The documentation seems to
 > suggest that both are frame-parameters and hence can be set together.
 > It works fine if two modify-frame-parameters commands are issued.

Allan, could you please try the attached patch?  It's not very elegant
but maybe it does what is needed.

Thanks, martin.

[-- Attachment #2: frame.c.diff --]
[-- Type: text/plain, Size: 1502 bytes --]

*** frame.c.~1.407.~	2009-01-02 07:40:38.046875000 +0100
--- frame.c	2009-01-03 18:57:07.437500000 +0100
***************
*** 2925,2930 ****
--- 2925,2932 ----
    int left_no_change = 0, top_no_change = 0;
    int icon_left_no_change = 0, icon_top_no_change = 0;
    int fullscreen_is_being_set = 0;
+   int height_for_full_width = 0;
+   int width_for_full_height = 0;
  
    struct gcpro gcpro1, gcpro2;
  
***************
*** 3006,3014 ****
        val = values[i];
  
        if (EQ (prop, Qwidth) && NATNUMP (val))
! 	width = XFASTINT (val);
        else if (EQ (prop, Qheight) && NATNUMP (val))
! 	height = XFASTINT (val);
        else if (EQ (prop, Qtop))
  	top = val;
        else if (EQ (prop, Qleft))
--- 3008,3016 ----
        val = values[i];
  
        if (EQ (prop, Qwidth) && NATNUMP (val))
! 	width_for_full_height = width = XFASTINT (val);
        else if (EQ (prop, Qheight) && NATNUMP (val))
! 	height_for_full_width = height = XFASTINT (val);
        else if (EQ (prop, Qtop))
  	top = val;
        else if (EQ (prop, Qleft))
***************
*** 3088,3093 ****
--- 3090,3100 ----
        x_fullscreen_adjust (f, &width, &height, &new_top, &new_left);
        if (new_top != f->top_pos || new_left != f->left_pos)
          x_set_offset (f, new_left, new_top, 1);
+ 
+       if (height_for_full_width)
+ 	height = height_for_full_width;
+       if (width_for_full_height)
+ 	width = width_for_full_height;
      }
  
    /* Don't set these parameters unless they've been explicitly

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2009-01-05 10:40 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
     [not found] <4961E193.9010904@gmx.at>
2008-12-09 21:03 ` bug#1522: 23.0.60; unable to set fullheight and fixed width in one command Allan Gottlieb
2009-01-05 10:40   ` bug#1522: marked as done (23.0.60; unable to set fullheight and fixed width in one command) Emacs bug Tracking System
2009-01-03 18:04 bug#1522: 23.0.60; unable to set fullheight and fixed width in one command martin rudalics
2009-01-03 22:11 ` Allan Gottlieb

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.