From: Jan Djärv Date: Mon, 11 Aug 2014 13:16:31 +0000 (+0200) Subject: Fix default width not being 80, but 77. X-Git-Tag: emacs-25.0.90~2635^2~679^2~484 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe2f33e8da2e2c7950214eafdfd610f164025baf;p=emacs.git Fix default width not being 80, but 77. * nsfns.m (Fx_create_frame): Call adjust_frame_size, set f->official. --- diff --git a/src/ChangeLog b/src/ChangeLog index aa2f95907eb..aebe78e4dab 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2014-08-11 Jan Djärv + + * nsfns.m (Fx_create_frame): Call adjust_frame_size, + set f->official. + 2014-08-11 Glenn Morris * fileio.c: Revert 2013-01-31 change, which chose coding system for diff --git a/src/nsfns.m b/src/nsfns.m index 8bce1da2e5d..ca8f4922ccd 100644 --- a/src/nsfns.m +++ b/src/nsfns.m @@ -1267,11 +1267,8 @@ This function is an internal primitive--use `make-frame' instead. */) init_frame_faces (f); /* Read comment about this code in corresponding place in xfns.c. */ - width = FRAME_TEXT_WIDTH (f); - height = FRAME_TEXT_HEIGHT (f); - FRAME_TEXT_HEIGHT (f) = 0; - SET_FRAME_WIDTH (f, 0); - change_frame_size (f, width, height, 1, 0, 0, 1); + adjust_frame_size (f, FRAME_COLS (f) * FRAME_COLUMN_WIDTH (f), + FRAME_LINES (f) * FRAME_LINE_HEIGHT (f), 5, 1); /* The resources controlling the menu-bar and tool-bar are processed specially at startup, and reflected in the mode @@ -1342,11 +1339,10 @@ This function is an internal primitive--use `make-frame' instead. */) x_default_parameter (f, parms, Qfullscreen, Qnil, "fullscreen", "Fullscreen", RES_TYPE_SYMBOL); - width = FRAME_TEXT_WIDTH (f); - height = FRAME_TEXT_HEIGHT (f); - FRAME_TEXT_HEIGHT (f) = 0; - SET_FRAME_WIDTH (f, 0); - change_frame_size (f, width, height, 1, 0, 0, 1); + /* Consider frame official, now. */ + f->official = true; + + adjust_frame_size (f, FRAME_TEXT_WIDTH (f), FRAME_TEXT_HEIGHT (f), 0, 1); if (! f->output_data.ns->explicit_parent) {