aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Antipov2012-06-29 15:48:08 +0400
committerDmitry Antipov2012-06-29 15:48:08 +0400
commit2af3565e0f2b325924e4adad26a08b442fa022ac (patch)
tree2786dc842d627cd1a847935c8cbad36896592792
parente4d3503065a43300417cdb6563c23d0d6beedbb7 (diff)
downloademacs-2af3565e0f2b325924e4adad26a08b442fa022ac.tar.gz
emacs-2af3565e0f2b325924e4adad26a08b442fa022ac.zip
* lisp/fringe.el (fringe-mode): Doc fix.
* src/window.h (struct window): Change type of 'fringes_outside_margins' to bitfield. Fix comment. Adjust users accordingly. (struct window): Change type of 'window_end_bytepos' to ptrdiff_t. Adjust comment. * src/xdisp.c (try_window_id): Change type of 'first_vpos' and 'vpos' to ptrdiff_t.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/fringe.el4
-rw-r--r--src/ChangeLog9
-rw-r--r--src/window.c9
-rw-r--r--src/window.h15
-rw-r--r--src/xdisp.c4
6 files changed, 30 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 788a94e01b3..064b141cdde 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12012-06-29 Dmitry Antipov <dmantipov@yandex.ru>
2
3 * fringe.el (fringe-mode): Doc fix.
4
12012-06-29 Michael Albinus <michael.albinus@gmx.de> 52012-06-29 Michael Albinus <michael.albinus@gmx.de>
2 6
3 * net/ange-ftp.el (ange-ftp-get-passwd): Throw if `non-essential' 7 * net/ange-ftp.el (ange-ftp-get-passwd): Throw if `non-essential'
diff --git a/lisp/fringe.el b/lisp/fringe.el
index 70a28bd92f9..0c7e7eb194c 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -207,8 +207,8 @@ frame parameter is used."
207 "Set the default appearance of fringes on all frames. 207 "Set the default appearance of fringes on all frames.
208 208
209When called interactively, query the user for MODE. Valid values 209When called interactively, query the user for MODE. Valid values
210for MODE include `none', `default', `left-only', `right-only', 210for MODE include `no-fringes', `default', `left-only', `right-only',
211`minimal' and `half'. 211`minimal' and `half-width'.
212 212
213When used in a Lisp program, MODE can be a cons cell where the 213When used in a Lisp program, MODE can be a cons cell where the
214integer in car specifies the left fringe width and the integer in 214integer in car specifies the left fringe width and the integer in
diff --git a/src/ChangeLog b/src/ChangeLog
index 29fc2561c03..e5517eeb8db 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
12012-06-29 Dmitry Antipov <dmantipov@yandex.ru>
2
3 * window.h (struct window): Change type of 'fringes_outside_margins'
4 to bitfield. Fix comment. Adjust users accordingly.
5 (struct window): Change type of 'window_end_bytepos' to ptrdiff_t.
6 Adjust comment.
7 * xdisp.c (try_window_id): Change type of 'first_vpos' and 'vpos'
8 to ptrdiff_t.
9
12012-06-29 Andreas Schwab <schwab@linux-m68k.org> 102012-06-29 Andreas Schwab <schwab@linux-m68k.org>
2 11
3 * gnutls.c (emacs_gnutls_handshake): 12 * gnutls.c (emacs_gnutls_handshake):
diff --git a/src/window.c b/src/window.c
index 9d78a3efa60..7691eb4dca9 100644
--- a/src/window.c
+++ b/src/window.c
@@ -5542,7 +5542,7 @@ the return value is nil. Otherwise the value is t. */)
5542 w->right_margin_cols = p->right_margin_cols; 5542 w->right_margin_cols = p->right_margin_cols;
5543 w->left_fringe_width = p->left_fringe_width; 5543 w->left_fringe_width = p->left_fringe_width;
5544 w->right_fringe_width = p->right_fringe_width; 5544 w->right_fringe_width = p->right_fringe_width;
5545 w->fringes_outside_margins = p->fringes_outside_margins; 5545 w->fringes_outside_margins = !NILP (p->fringes_outside_margins);
5546 w->scroll_bar_width = p->scroll_bar_width; 5546 w->scroll_bar_width = p->scroll_bar_width;
5547 w->vertical_scroll_bar_type = p->vertical_scroll_bar_type; 5547 w->vertical_scroll_bar_type = p->vertical_scroll_bar_type;
5548 w->dedicated = p->dedicated; 5548 w->dedicated = p->dedicated;
@@ -5858,7 +5858,7 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i)
5858 p->right_margin_cols = w->right_margin_cols; 5858 p->right_margin_cols = w->right_margin_cols;
5859 p->left_fringe_width = w->left_fringe_width; 5859 p->left_fringe_width = w->left_fringe_width;
5860 p->right_fringe_width = w->right_fringe_width; 5860 p->right_fringe_width = w->right_fringe_width;
5861 p->fringes_outside_margins = w->fringes_outside_margins; 5861 p->fringes_outside_margins = w->fringes_outside_margins ? Qt : Qnil;
5862 p->scroll_bar_width = w->scroll_bar_width; 5862 p->scroll_bar_width = w->scroll_bar_width;
5863 p->vertical_scroll_bar_type = w->vertical_scroll_bar_type; 5863 p->vertical_scroll_bar_type = w->vertical_scroll_bar_type;
5864 p->dedicated = w->dedicated; 5864 p->dedicated = w->dedicated;
@@ -6095,6 +6095,7 @@ display marginal areas and the text area. */)
6095 (Lisp_Object window, Lisp_Object left_width, Lisp_Object right_width, Lisp_Object outside_margins) 6095 (Lisp_Object window, Lisp_Object left_width, Lisp_Object right_width, Lisp_Object outside_margins)
6096{ 6096{
6097 struct window *w = decode_window (window); 6097 struct window *w = decode_window (window);
6098 int outside = !NILP (outside_margins);
6098 6099
6099 if (!NILP (left_width)) 6100 if (!NILP (left_width))
6100 CHECK_NATNUM (left_width); 6101 CHECK_NATNUM (left_width);
@@ -6105,11 +6106,11 @@ display marginal areas and the text area. */)
6105 if (FRAME_WINDOW_P (WINDOW_XFRAME (w)) 6106 if (FRAME_WINDOW_P (WINDOW_XFRAME (w))
6106 && (!EQ (w->left_fringe_width, left_width) 6107 && (!EQ (w->left_fringe_width, left_width)
6107 || !EQ (w->right_fringe_width, right_width) 6108 || !EQ (w->right_fringe_width, right_width)
6108 || !EQ (w->fringes_outside_margins, outside_margins))) 6109 || w->fringes_outside_margins != outside))
6109 { 6110 {
6110 w->left_fringe_width = left_width; 6111 w->left_fringe_width = left_width;
6111 w->right_fringe_width = right_width; 6112 w->right_fringe_width = right_width;
6112 w->fringes_outside_margins = outside_margins; 6113 w->fringes_outside_margins = outside;
6113 6114
6114 adjust_window_margins (w); 6115 adjust_window_margins (w);
6115 6116
diff --git a/src/window.h b/src/window.h
index 50bd7134f27..34b5bb7a0dd 100644
--- a/src/window.h
+++ b/src/window.h
@@ -159,9 +159,6 @@ struct window
159 /* Width of left and right fringes. 159 /* Width of left and right fringes.
160 A value of nil or t means use frame values. */ 160 A value of nil or t means use frame values. */
161 Lisp_Object left_fringe_width, right_fringe_width; 161 Lisp_Object left_fringe_width, right_fringe_width;
162 /* Non-nil means fringes are drawn outside display margins;
163 othersize draw them between margin areas and text. */
164 Lisp_Object fringes_outside_margins;
165 162
166 /* Pixel width of scroll bars. 163 /* Pixel width of scroll bars.
167 A value of nil or t means use frame values. */ 164 A value of nil or t means use frame values. */
@@ -330,13 +327,17 @@ struct window
330 accept that. */ 327 accept that. */
331 unsigned frozen_window_start_p : 1; 328 unsigned frozen_window_start_p : 1;
332 329
330 /* Non-zero means fringes are drawn outside display margins.
331 Otherwise draw them between margin areas and text. */
332 unsigned fringes_outside_margins : 1;
333
333 /* Amount by which lines of this window are scrolled in 334 /* Amount by which lines of this window are scrolled in
334 y-direction (smooth scrolling). */ 335 y-direction (smooth scrolling). */
335 int vscroll; 336 int vscroll;
336 337
337 /* Z_BYTE - the buffer position of the last glyph in the current matrix 338 /* Z_BYTE - the buffer position of the last glyph in the current matrix of W.
338 of W. Only valid if WINDOW_END_VALID is not nil. */ 339 Should be nonnegative, and only valid if window_end_valid is not nil. */
339 int window_end_bytepos; 340 ptrdiff_t window_end_bytepos;
340}; 341};
341 342
342/* 1 if W is a minibuffer window. */ 343/* 1 if W is a minibuffer window. */
@@ -612,7 +613,7 @@ struct window
612/* Are fringes outside display margins in window W. */ 613/* Are fringes outside display margins in window W. */
613 614
614#define WINDOW_HAS_FRINGES_OUTSIDE_MARGINS(W) \ 615#define WINDOW_HAS_FRINGES_OUTSIDE_MARGINS(W) \
615 (!NILP ((W)->fringes_outside_margins)) 616 ((W)->fringes_outside_margins)
616 617
617/* Say whether scroll bars are currently enabled for window W, 618/* Say whether scroll bars are currently enabled for window W,
618 and which side they are on. */ 619 and which side they are on. */
diff --git a/src/xdisp.c b/src/xdisp.c
index ae06355ac60..0b1012990d3 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -17761,8 +17761,8 @@ try_window_id (struct window *w)
17761 { 17761 {
17762 /* Displayed to end of window, but no line containing text was 17762 /* Displayed to end of window, but no line containing text was
17763 displayed. Lines were deleted at the end of the window. */ 17763 displayed. Lines were deleted at the end of the window. */
17764 int first_vpos = WINDOW_WANTS_HEADER_LINE_P (w) ? 1 : 0; 17764 ptrdiff_t first_vpos = WINDOW_WANTS_HEADER_LINE_P (w) ? 1 : 0;
17765 int vpos = XFASTINT (w->window_end_vpos); 17765 ptrdiff_t vpos = XFASTINT (w->window_end_vpos);
17766 struct glyph_row *current_row = current_matrix->rows + vpos; 17766 struct glyph_row *current_row = current_matrix->rows + vpos;
17767 struct glyph_row *desired_row = desired_matrix->rows + vpos; 17767 struct glyph_row *desired_row = desired_matrix->rows + vpos;
17768 17768