aboutsummaryrefslogtreecommitdiffstats
path: root/src/window.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/window.c')
-rw-r--r--src/window.c22
1 files changed, 15 insertions, 7 deletions
diff --git a/src/window.c b/src/window.c
index f6fe0cdb059..42a2ca68f14 100644
--- a/src/window.c
+++ b/src/window.c
@@ -641,7 +641,7 @@ DEFUN ("window-combination-limit", Fwindow_combination_limit, Swindow_combinatio
641WINDOW must be a valid window used in horizontal or vertical combination. 641WINDOW must be a valid window used in horizontal or vertical combination.
642If the return value is nil, child windows of WINDOW can be recombined with 642If the return value is nil, child windows of WINDOW can be recombined with
643WINDOW's siblings. A return value of t means that child windows of 643WINDOW's siblings. A return value of t means that child windows of
644WINDOW are never \(re-)combined with WINDOW's siblings. */) 644WINDOW are never (re-)combined with WINDOW's siblings. */)
645 (Lisp_Object window) 645 (Lisp_Object window)
646{ 646{
647 struct window *w; 647 struct window *w;
@@ -658,7 +658,7 @@ DEFUN ("set-window-combination-limit", Fset_window_combination_limit, Sset_windo
658WINDOW must be a valid window used in horizontal or vertical combination. 658WINDOW must be a valid window used in horizontal or vertical combination.
659If LIMIT is nil, child windows of WINDOW can be recombined with WINDOW's 659If LIMIT is nil, child windows of WINDOW can be recombined with WINDOW's
660siblings. LIMIT t means that child windows of WINDOW are never 660siblings. LIMIT t means that child windows of WINDOW are never
661\(re-)combined with WINDOW's siblings. Other values are reserved for 661(re-)combined with WINDOW's siblings. Other values are reserved for
662future use. */) 662future use. */)
663 (Lisp_Object window, Lisp_Object limit) 663 (Lisp_Object window, Lisp_Object limit)
664{ 664{
@@ -1291,10 +1291,18 @@ window_relative_x_coord (struct window *w, enum window_part part, int x)
1291 + window_box_width (w, RIGHT_MARGIN_AREA) 1291 + window_box_width (w, RIGHT_MARGIN_AREA)
1292 + ((WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)) 1292 + ((WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w))
1293 ? WINDOW_RIGHT_FRINGE_WIDTH (w) : 0)); 1293 ? WINDOW_RIGHT_FRINGE_WIDTH (w) : 0));
1294 }
1295 1294
1296 /* ON_SCROLL_BAR, ON_NOTHING, and ON_VERTICAL_BORDER: */ 1295 case ON_NOTHING:
1297 return 0; 1296 case ON_VERTICAL_BORDER:
1297 case ON_VERTICAL_SCROLL_BAR:
1298 case ON_HORIZONTAL_SCROLL_BAR:
1299 case ON_RIGHT_DIVIDER:
1300 case ON_BOTTOM_DIVIDER:
1301 return 0;
1302
1303 default:
1304 emacs_abort ();
1305 }
1298} 1306}
1299 1307
1300 1308
@@ -1304,7 +1312,7 @@ DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p,
1304WINDOW must be a live window and defaults to the selected one. 1312WINDOW must be a live window and defaults to the selected one.
1305COORDINATES is a cons of the form (X . Y), X and Y being distances 1313COORDINATES is a cons of the form (X . Y), X and Y being distances
1306measured in characters from the upper-left corner of the frame. 1314measured in characters from the upper-left corner of the frame.
1307\(0 . 0) denotes the character in the upper left corner of the 1315(0 . 0) denotes the character in the upper left corner of the
1308frame. 1316frame.
1309If COORDINATES are in the text portion of WINDOW, 1317If COORDINATES are in the text portion of WINDOW,
1310 the coordinates relative to the window are returned. 1318 the coordinates relative to the window are returned.
@@ -1688,7 +1696,7 @@ of the window. The remaining elements are omitted if the character after
1688POS is fully visible; otherwise, RTOP and RBOT are the number of pixels 1696POS is fully visible; otherwise, RTOP and RBOT are the number of pixels
1689off-window at the top and bottom of the screen line ("row") containing 1697off-window at the top and bottom of the screen line ("row") containing
1690POS, ROWH is the visible height of that row, and VPOS is the row number 1698POS, ROWH is the visible height of that row, and VPOS is the row number
1691\(zero-based). */) 1699(zero-based). */)
1692 (Lisp_Object pos, Lisp_Object window, Lisp_Object partially) 1700 (Lisp_Object pos, Lisp_Object window, Lisp_Object partially)
1693{ 1701{
1694 struct window *w; 1702 struct window *w;