mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 00:01:33 -08:00
Code Issues Projects Releases Wiki Activity

Fix default width not being 80, but 77.

Browse source 
* nsfns.m (Fx_create_frame): Call adjust_frame_size,
set f->official.
This commit is contained in:
Jan Djärv 2014-08-11 15:16:31 +02:00
parent c7367d2de3
commit fe2f33e8da
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2014-08-11 Jan Djärv <jan.h.d@swipnet.se>
* nsfns.m (Fx_create_frame): Call adjust_frame_size,
set f->official.
2014-08-11 Glenn Morris <rgm@gnu.org>
* fileio.c: Revert 2013-01-31 change, which chose coding system for

16
src/nsfns.m
View file

@ -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)
{