From: Chong Yidong <cyd@stupidchicken.com>
To: "Tim Van Holder" <tim.vanholder@gmail.com>
Cc: 598@emacsbugs.donarmstrong.com
Subject: bug#598: 23.0.60; frame size issue (--geometry or default-frame-alist) when using customized default face
Date: Mon, 03 Nov 2008 11:00:17 -0500 [thread overview]
Message-ID: <87wsfkkdf2.fsf@cyd.mit.edu> (raw)
"Tim Van Holder" <tim.vanholder@gmail.com> writes:
> Unfortunately, even after a maintainer-clean + make bootstrap, the
> issue is not resolved for me. In fact, the very first run of the new
> emacs resulted in a frame that was 168x61 instead of 132x57 (is that
> 132x60->132x57 as a result of menu/toolbars considered a bug or a
> feature?).
Does the following patch improve matters?
*** trunk/src/xfns.c.~1.727.~ 2008-10-28 11:24:26.000000000 -0400
--- trunk/src/xfns.c 2008-11-03 10:33:55.000000000 -0500
***************
*** 3099,3104 ****
--- 3099,3118 ----
x_default_parameter (f, parms, Qfont, font, "font", "Font", RES_TYPE_STRING);
}
+ DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint, Sx_wm_set_size_hint,
+ 0, 1, 0,
+ doc: /* Send the size hints for frame FRAME to the window manager. */)
+ (frame)
+ Lisp_Object frame;
+ {
+ struct frame *f;
+ if (NILP (frame))
+ frame = selected_frame;
+ f = XFRAME (frame);
+ BLOCK_INPUT;
+ x_wm_set_size_hint (f, 0, 0);
+ UNBLOCK_INPUT;
+ }
DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
1, 1, 0,
***************
*** 5944,5949 ****
--- 5958,5964 ----
defsubr (&Sx_display_visual_class);
defsubr (&Sx_display_backing_store);
defsubr (&Sx_display_save_under);
+ defsubr (&Sx_wm_set_size_hint);
defsubr (&Sx_create_frame);
defsubr (&Sx_open_connection);
defsubr (&Sx_close_connection);
*** trunk/lisp/term/x-win.el.~1.235.~ 2008-08-30 19:54:06.000000000 -0400
--- trunk/lisp/term/x-win.el 2008-11-03 10:33:09.000000000 -0500
***************
*** 1540,1545 ****
--- 1540,1548 ----
;; Don't let Emacs suspend under X.
(add-hook 'suspend-hook 'x-win-suspend-error)
+ ;; Set wm hints after initialization
+ (add-hook 'after-init-hook 'x-wm-set-size-hint)
+
;; Turn off window-splitting optimization; X is usually fast enough
;; that this is only annoying.
(setq split-window-keep-point t)
next reply other threads:[~2008-11-03 16:00 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-11-03 16:00 Chong Yidong [this message]
2008-11-05 10:06 ` bug#598: 23.0.60; frame size issue (--geometry or default-frame-alist) when using customized default face Tim Van Holder
[not found] <87k5clg04k.fsf@cyd.mit.edu>
2008-10-07 11:25 ` Tim Van Holder
2008-10-07 12:09 ` martin rudalics
2008-10-08 8:15 ` Tim Van Holder
2008-10-08 22:47 ` Chong Yidong
2008-10-09 8:09 ` Tim Van Holder
-- strict thread matches above, loose matches on Subject: below --
2008-10-01 0:01 Chong Yidong
2008-10-01 8:12 ` Tim Van Holder
2008-10-01 8:47 ` martin rudalics
2008-10-01 9:52 ` bug#911: " Tim Van Holder
2008-10-01 13:05 ` martin rudalics
2008-10-01 13:57 ` Tim Van Holder
2008-10-03 8:25 ` Tim Van Holder
2008-09-28 20:46 Chong Yidong
2008-09-29 7:34 ` Tim Van Holder
2008-09-29 8:52 ` martin rudalics
2008-09-29 9:13 ` Tim Van Holder
2008-09-29 17:30 ` Chong Yidong
2008-09-30 7:39 ` Tim Van Holder
2008-07-23 8:18 Tim Van Holder
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87wsfkkdf2.fsf@cyd.mit.edu \
--to=cyd@stupidchicken.com \
--cc=598@emacsbugs.donarmstrong.com \
--cc=tim.vanholder@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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.