aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2019-10-04 12:30:28 -0700
committerPaul Eggert2019-10-04 12:31:17 -0700
commit81c7f3afb34c28972d80c7d45a47903571f2b59d (patch)
tree82bd7f54dce59fe4bd52b1fea4824f13b6a144de /src
parentbe27f02bcfe1f99b1bfe0ed2a5669f320bb1ef59 (diff)
downloademacs-81c7f3afb34c28972d80c7d45a47903571f2b59d.tar.gz
emacs-81c7f3afb34c28972d80c7d45a47903571f2b59d.zip
Minor style tweaks for recent tab changes
* src/dispextern.h (MR_PARTIALLY_VISIBLE_AT_TOP): * src/window.c (Fwindow_mode_line_height) (Fwindow_header_line_height, Fwindow_tab_line_height) (Fwindow_right_divider_width, Fwindow_bottom_divider_width) (Fwindow_scroll_bar_width, Fwindow_scroll_bar_height): (Fset_window_configuration, Fcurrent_window_configuration): Omit unnecessary parens. * src/dispextern.h (CURRENT_MODE_LINE_HEIGHT) (CURRENT_HEADER_LINE_HEIGHT, CURRENT_TAB_LINE_HEIGHT): Add parens needed to make these macros function-like. * src/window.c (window_resize_check): * src/window.h (WINDOW_TAB_BAR_P): * src/xdisp.c (tab_bar_item_info): Reindent. * src/window.c (window_wants_mode_line) (window_wants_header_line, window_wants_tab_line): Simplify (a && b ? 1 : 0) to (a && b).
Diffstat (limited to 'src')
-rw-r--r--src/dispextern.h38
-rw-r--r--src/window.c83
-rw-r--r--src/window.h8
-rw-r--r--src/xdisp.c3
4 files changed, 64 insertions, 68 deletions
diff --git a/src/dispextern.h b/src/dispextern.h
index 817f8c77d97..7a15e2745b5 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -1178,7 +1178,7 @@ struct glyph_row *matrix_row (struct glyph_matrix *, int);
1178 ((ROW)->height != (ROW)->visible_height) 1178 ((ROW)->height != (ROW)->visible_height)
1179 1179
1180#define MR_PARTIALLY_VISIBLE_AT_TOP(W, ROW) \ 1180#define MR_PARTIALLY_VISIBLE_AT_TOP(W, ROW) \
1181 ((ROW)->y < (WINDOW_TAB_LINE_HEIGHT ((W)) + WINDOW_HEADER_LINE_HEIGHT ((W)))) 1181 ((ROW)->y < WINDOW_TAB_LINE_HEIGHT (W) + WINDOW_HEADER_LINE_HEIGHT (W))
1182 1182
1183#define MR_PARTIALLY_VISIBLE_AT_BOTTOM(W, ROW) \ 1183#define MR_PARTIALLY_VISIBLE_AT_BOTTOM(W, ROW) \
1184 (((ROW)->y + (ROW)->height - (ROW)->extra_line_spacing) \ 1184 (((ROW)->y + (ROW)->height - (ROW)->extra_line_spacing) \
@@ -1489,39 +1489,39 @@ struct glyph_string
1489 a default based on the height of the font of the face `mode-line'. */ 1489 a default based on the height of the font of the face `mode-line'. */
1490 1490
1491#define CURRENT_MODE_LINE_HEIGHT(W) \ 1491#define CURRENT_MODE_LINE_HEIGHT(W) \
1492 (W->mode_line_height >= 0 \ 1492 ((W)->mode_line_height >= 0 \
1493 ? W->mode_line_height \ 1493 ? (W)->mode_line_height \
1494 : (W->mode_line_height \ 1494 : ((W)->mode_line_height \
1495 = (MATRIX_MODE_LINE_HEIGHT (W->current_matrix) \ 1495 = (MATRIX_MODE_LINE_HEIGHT ((W)->current_matrix) \
1496 ? MATRIX_MODE_LINE_HEIGHT (W->current_matrix) \ 1496 ? MATRIX_MODE_LINE_HEIGHT ((W)->current_matrix) \
1497 : estimate_mode_line_height \ 1497 : estimate_mode_line_height \
1498 (XFRAME (W->frame), CURRENT_MODE_LINE_FACE_ID (W))))) 1498 (XFRAME ((W)->frame), CURRENT_MODE_LINE_FACE_ID (W)))))
1499 1499
1500/* Return the current height of the header line of window W. If not known 1500/* Return the current height of the header line of window W. If not known
1501 from W->header_line_height, look at W's current glyph matrix, or return 1501 from W->header_line_height, look at W's current glyph matrix, or return
1502 an estimation based on the height of the font of the face `header-line'. */ 1502 an estimation based on the height of the font of the face `header-line'. */
1503 1503
1504#define CURRENT_HEADER_LINE_HEIGHT(W) \ 1504#define CURRENT_HEADER_LINE_HEIGHT(W) \
1505 (W->header_line_height >= 0 \ 1505 ((W)->header_line_height >= 0 \
1506 ? W->header_line_height \ 1506 ? (W)->header_line_height \
1507 : (W->header_line_height \ 1507 : ((W)->header_line_height \
1508 = (MATRIX_HEADER_LINE_HEIGHT (W->current_matrix) \ 1508 = (MATRIX_HEADER_LINE_HEIGHT ((W)->current_matrix) \
1509 ? MATRIX_HEADER_LINE_HEIGHT (W->current_matrix) \ 1509 ? MATRIX_HEADER_LINE_HEIGHT ((W)->current_matrix) \
1510 : estimate_mode_line_height \ 1510 : estimate_mode_line_height \
1511 (XFRAME (W->frame), HEADER_LINE_FACE_ID)))) 1511 (XFRAME ((W)->frame), HEADER_LINE_FACE_ID))))
1512 1512
1513/* Return the current height of the tab line of window W. If not known 1513/* Return the current height of the tab line of window W. If not known
1514 from W->tab_line_height, look at W's current glyph matrix, or return 1514 from W->tab_line_height, look at W's current glyph matrix, or return
1515 an estimation based on the height of the font of the face `tab-line'. */ 1515 an estimation based on the height of the font of the face `tab-line'. */
1516 1516
1517#define CURRENT_TAB_LINE_HEIGHT(W) \ 1517#define CURRENT_TAB_LINE_HEIGHT(W) \
1518 (W->tab_line_height >= 0 \ 1518 ((W)->tab_line_height >= 0 \
1519 ? W->tab_line_height \ 1519 ? (W)->tab_line_height \
1520 : (W->tab_line_height \ 1520 : ((W)->tab_line_height \
1521 = (MATRIX_TAB_LINE_HEIGHT (W->current_matrix) \ 1521 = (MATRIX_TAB_LINE_HEIGHT ((W)->current_matrix) \
1522 ? MATRIX_TAB_LINE_HEIGHT (W->current_matrix) \ 1522 ? MATRIX_TAB_LINE_HEIGHT ((W)->current_matrix) \
1523 : estimate_mode_line_height \ 1523 : estimate_mode_line_height \
1524 (XFRAME (W->frame), TAB_LINE_FACE_ID)))) 1524 (XFRAME ((W)->frame), TAB_LINE_FACE_ID))))
1525 1525
1526/* Return the height of the desired mode line of window W. */ 1526/* Return the height of the desired mode line of window W. */
1527 1527
diff --git a/src/window.c b/src/window.c
index 95197985e84..ba9af3b9b0c 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1120,7 +1120,7 @@ DEFUN ("window-mode-line-height", Fwindow_mode_line_height,
1120WINDOW must be a live window and defaults to the selected one. */) 1120WINDOW must be a live window and defaults to the selected one. */)
1121 (Lisp_Object window) 1121 (Lisp_Object window)
1122{ 1122{
1123 return (make_fixnum (WINDOW_MODE_LINE_HEIGHT (decode_live_window (window)))); 1123 return make_fixnum (WINDOW_MODE_LINE_HEIGHT (decode_live_window (window)));
1124} 1124}
1125 1125
1126DEFUN ("window-header-line-height", Fwindow_header_line_height, 1126DEFUN ("window-header-line-height", Fwindow_header_line_height,
@@ -1129,7 +1129,7 @@ DEFUN ("window-header-line-height", Fwindow_header_line_height,
1129WINDOW must be a live window and defaults to the selected one. */) 1129WINDOW must be a live window and defaults to the selected one. */)
1130 (Lisp_Object window) 1130 (Lisp_Object window)
1131{ 1131{
1132 return (make_fixnum (WINDOW_HEADER_LINE_HEIGHT (decode_live_window (window)))); 1132 return make_fixnum (WINDOW_HEADER_LINE_HEIGHT (decode_live_window (window)));
1133} 1133}
1134 1134
1135DEFUN ("window-tab-line-height", Fwindow_tab_line_height, 1135DEFUN ("window-tab-line-height", Fwindow_tab_line_height,
@@ -1138,7 +1138,7 @@ DEFUN ("window-tab-line-height", Fwindow_tab_line_height,
1138WINDOW must be a live window and defaults to the selected one. */) 1138WINDOW must be a live window and defaults to the selected one. */)
1139 (Lisp_Object window) 1139 (Lisp_Object window)
1140{ 1140{
1141 return (make_fixnum (WINDOW_TAB_LINE_HEIGHT (decode_live_window (window)))); 1141 return make_fixnum (WINDOW_TAB_LINE_HEIGHT (decode_live_window (window)));
1142} 1142}
1143 1143
1144DEFUN ("window-right-divider-width", Fwindow_right_divider_width, 1144DEFUN ("window-right-divider-width", Fwindow_right_divider_width,
@@ -1147,7 +1147,7 @@ DEFUN ("window-right-divider-width", Fwindow_right_divider_width,
1147WINDOW must be a live window and defaults to the selected one. */) 1147WINDOW must be a live window and defaults to the selected one. */)
1148 (Lisp_Object window) 1148 (Lisp_Object window)
1149{ 1149{
1150 return (make_fixnum (WINDOW_RIGHT_DIVIDER_WIDTH (decode_live_window (window)))); 1150 return make_fixnum (WINDOW_RIGHT_DIVIDER_WIDTH (decode_live_window (window)));
1151} 1151}
1152 1152
1153DEFUN ("window-bottom-divider-width", Fwindow_bottom_divider_width, 1153DEFUN ("window-bottom-divider-width", Fwindow_bottom_divider_width,
@@ -1156,7 +1156,7 @@ DEFUN ("window-bottom-divider-width", Fwindow_bottom_divider_width,
1156WINDOW must be a live window and defaults to the selected one. */) 1156WINDOW must be a live window and defaults to the selected one. */)
1157 (Lisp_Object window) 1157 (Lisp_Object window)
1158{ 1158{
1159 return (make_fixnum (WINDOW_BOTTOM_DIVIDER_WIDTH (decode_live_window (window)))); 1159 return make_fixnum (WINDOW_BOTTOM_DIVIDER_WIDTH (decode_live_window (window)));
1160} 1160}
1161 1161
1162DEFUN ("window-scroll-bar-width", Fwindow_scroll_bar_width, 1162DEFUN ("window-scroll-bar-width", Fwindow_scroll_bar_width,
@@ -1165,7 +1165,7 @@ DEFUN ("window-scroll-bar-width", Fwindow_scroll_bar_width,
1165WINDOW must be a live window and defaults to the selected one. */) 1165WINDOW must be a live window and defaults to the selected one. */)
1166 (Lisp_Object window) 1166 (Lisp_Object window)
1167{ 1167{
1168 return (make_fixnum (WINDOW_SCROLL_BAR_AREA_WIDTH (decode_live_window (window)))); 1168 return make_fixnum (WINDOW_SCROLL_BAR_AREA_WIDTH (decode_live_window (window)));
1169} 1169}
1170 1170
1171DEFUN ("window-scroll-bar-height", Fwindow_scroll_bar_height, 1171DEFUN ("window-scroll-bar-height", Fwindow_scroll_bar_height,
@@ -1174,7 +1174,7 @@ DEFUN ("window-scroll-bar-height", Fwindow_scroll_bar_height,
1174WINDOW must be a live window and defaults to the selected one. */) 1174WINDOW must be a live window and defaults to the selected one. */)
1175 (Lisp_Object window) 1175 (Lisp_Object window)
1176{ 1176{
1177 return (make_fixnum (WINDOW_SCROLL_BAR_AREA_HEIGHT (decode_live_window (window)))); 1177 return make_fixnum (WINDOW_SCROLL_BAR_AREA_HEIGHT (decode_live_window (window)));
1178} 1178}
1179 1179
1180DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0, 1180DEFUN ("window-hscroll", Fwindow_hscroll, Swindow_hscroll, 0, 1, 0,
@@ -4470,8 +4470,8 @@ window_resize_check (struct window *w, bool horflag)
4470 hardcodes the values of `window-safe-min-width' (2) and 4470 hardcodes the values of `window-safe-min-width' (2) and
4471 `window-safe-min-height' (1) which are defined in window.el. */ 4471 `window-safe-min-height' (1) which are defined in window.el. */
4472 return (XFIXNUM (w->new_pixel) >= (horflag 4472 return (XFIXNUM (w->new_pixel) >= (horflag
4473 ? (2 * FRAME_COLUMN_WIDTH (f)) 4473 ? 2 * FRAME_COLUMN_WIDTH (f)
4474 : FRAME_LINE_HEIGHT (f))); 4474 : FRAME_LINE_HEIGHT (f)));
4475} 4475}
4476 4476
4477 4477
@@ -5350,15 +5350,13 @@ window_wants_mode_line (struct window *w)
5350 Lisp_Object window_mode_line_format = 5350 Lisp_Object window_mode_line_format =
5351 window_parameter (w, Qmode_line_format); 5351 window_parameter (w, Qmode_line_format);
5352 5352
5353 return ((WINDOW_LEAF_P (w) 5353 return (WINDOW_LEAF_P (w)
5354 && !MINI_WINDOW_P (w) 5354 && !MINI_WINDOW_P (w)
5355 && !WINDOW_PSEUDO_P (w) 5355 && !WINDOW_PSEUDO_P (w)
5356 && !EQ (window_mode_line_format, Qnone) 5356 && !EQ (window_mode_line_format, Qnone)
5357 && (!NILP (window_mode_line_format) 5357 && (!NILP (window_mode_line_format)
5358 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), mode_line_format))) 5358 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), mode_line_format)))
5359 && WINDOW_PIXEL_HEIGHT (w) > WINDOW_FRAME_LINE_HEIGHT (w)) 5359 && WINDOW_PIXEL_HEIGHT (w) > WINDOW_FRAME_LINE_HEIGHT (w));
5360 ? 1
5361 : 0);
5362} 5360}
5363 5361
5364 5362
@@ -5381,18 +5379,16 @@ window_wants_header_line (struct window *w)
5381 Lisp_Object window_header_line_format = 5379 Lisp_Object window_header_line_format =
5382 window_parameter (w, Qheader_line_format); 5380 window_parameter (w, Qheader_line_format);
5383 5381
5384 return ((WINDOW_LEAF_P (w) 5382 return (WINDOW_LEAF_P (w)
5385 && !MINI_WINDOW_P (w) 5383 && !MINI_WINDOW_P (w)
5386 && !WINDOW_PSEUDO_P (w) 5384 && !WINDOW_PSEUDO_P (w)
5387 && !EQ (window_header_line_format, Qnone) 5385 && !EQ (window_header_line_format, Qnone)
5388 && (!NILP (window_header_line_format) 5386 && (!NILP (window_header_line_format)
5389 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), header_line_format))) 5387 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), header_line_format)))
5390 && (WINDOW_PIXEL_HEIGHT (w) 5388 && (WINDOW_PIXEL_HEIGHT (w)
5391 > (window_wants_mode_line (w) 5389 > (window_wants_mode_line (w)
5392 ? 2 * WINDOW_FRAME_LINE_HEIGHT (w) 5390 ? 2 * WINDOW_FRAME_LINE_HEIGHT (w)
5393 : WINDOW_FRAME_LINE_HEIGHT (w)))) 5391 : WINDOW_FRAME_LINE_HEIGHT (w))));
5394 ? 1
5395 : 0);
5396} 5392}
5397 5393
5398 5394
@@ -5410,24 +5406,23 @@ window_wants_header_line (struct window *w)
5410 * to accommodate a mode line and a header line too if necessary (the 5406 * to accommodate a mode line and a header line too if necessary (the
5411 * mode line and a header line prevail). 5407 * mode line and a header line prevail).
5412 */ 5408 */
5409
5413bool 5410bool
5414window_wants_tab_line (struct window *w) 5411window_wants_tab_line (struct window *w)
5415{ 5412{
5416 Lisp_Object window_tab_line_format = 5413 Lisp_Object window_tab_line_format =
5417 window_parameter (w, Qtab_line_format); 5414 window_parameter (w, Qtab_line_format);
5418 5415
5419 return ((WINDOW_LEAF_P (w) 5416 return (WINDOW_LEAF_P (w)
5420 && !MINI_WINDOW_P (w) 5417 && !MINI_WINDOW_P (w)
5421 && !WINDOW_PSEUDO_P (w) 5418 && !WINDOW_PSEUDO_P (w)
5422 && !EQ (window_tab_line_format, Qnone) 5419 && !EQ (window_tab_line_format, Qnone)
5423 && (!NILP (window_tab_line_format) 5420 && (!NILP (window_tab_line_format)
5424 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), tab_line_format))) 5421 || !NILP (BVAR (XBUFFER (WINDOW_BUFFER (w)), tab_line_format)))
5425 && (WINDOW_PIXEL_HEIGHT (w) 5422 && (WINDOW_PIXEL_HEIGHT (w)
5426 > (((window_wants_mode_line (w) ? 1 : 0) 5423 > (((window_wants_mode_line (w) ? 1 : 0)
5427 + (window_wants_header_line (w) ? 1 : 0) 5424 + (window_wants_header_line (w) ? 1 : 0)
5428 + 1) * WINDOW_FRAME_LINE_HEIGHT (w)))) 5425 + 1) * WINDOW_FRAME_LINE_HEIGHT (w))));
5429 ? 1
5430 : 0);
5431} 5426}
5432 5427
5433/* Return number of lines of text in window W, not counting the mode 5428/* Return number of lines of text in window W, not counting the mode
@@ -7192,7 +7187,7 @@ the return value is nil. Otherwise the value is t. */)
7192 minibuf_selected_window = data->minibuf_selected_window; 7187 minibuf_selected_window = data->minibuf_selected_window;
7193 7188
7194 SAFE_FREE (); 7189 SAFE_FREE ();
7195 return (FRAME_LIVE_P (f) ? Qt : Qnil); 7190 return FRAME_LIVE_P (f) ? Qt : Qnil;
7196} 7191}
7197 7192
7198 7193
@@ -7481,7 +7476,7 @@ saved by this function. */)
7481 ASET (tem, i, make_nil_vector (VECSIZE (struct saved_window))); 7476 ASET (tem, i, make_nil_vector (VECSIZE (struct saved_window)));
7482 save_window_save (FRAME_ROOT_WINDOW (f), XVECTOR (tem), 0); 7477 save_window_save (FRAME_ROOT_WINDOW (f), XVECTOR (tem), 0);
7483 XSETWINDOW_CONFIGURATION (tem, data); 7478 XSETWINDOW_CONFIGURATION (tem, data);
7484 return (tem); 7479 return tem;
7485} 7480}
7486 7481
7487/* Called after W's margins, fringes or scroll bars was adjusted. */ 7482/* Called after W's margins, fringes or scroll bars was adjusted. */
diff --git a/src/window.h b/src/window.h
index 21d2f3d3671..71946a56955 100644
--- a/src/window.h
+++ b/src/window.h
@@ -750,11 +750,11 @@ wset_next_buffers (struct window *w, Lisp_Object val)
750 750
751/* True if W is a tab bar window. */ 751/* True if W is a tab bar window. */
752#if defined (HAVE_WINDOW_SYSTEM) 752#if defined (HAVE_WINDOW_SYSTEM)
753#define WINDOW_TAB_BAR_P(W) \ 753# define WINDOW_TAB_BAR_P(W) \
754 (WINDOWP (WINDOW_XFRAME (W)->tab_bar_window) \ 754 (WINDOWP (WINDOW_XFRAME (W)->tab_bar_window) \
755 && (W) == XWINDOW (WINDOW_XFRAME (W)->tab_bar_window)) 755 && (W) == XWINDOW (WINDOW_XFRAME (W)->tab_bar_window))
756#else 756#else
757#define WINDOW_TAB_BAR_P(W) false 757# define WINDOW_TAB_BAR_P(W) false
758#endif 758#endif
759 759
760/* True if W is a tool bar window. */ 760/* True if W is a tool bar window. */
diff --git a/src/xdisp.c b/src/xdisp.c
index 89a72ff7511..9d1fdecaffb 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -13176,7 +13176,8 @@ redisplay_tab_bar (struct frame *f)
13176 GLYPH doesn't display a tab-bar item. */ 13176 GLYPH doesn't display a tab-bar item. */
13177 13177
13178static bool 13178static bool
13179tab_bar_item_info (struct frame *f, struct glyph *glyph, int *prop_idx, bool *close_p) 13179tab_bar_item_info (struct frame *f, struct glyph *glyph,
13180 int *prop_idx, bool *close_p)
13180{ 13181{
13181 Lisp_Object prop; 13182 Lisp_Object prop;
13182 int charpos; 13183 int charpos;