Mercurial > emacs
comparison src/xdisp.c @ 63384:e5a2d6aee2eb
(note_mode_line_or_margin_highlight): Lisp_Object/int mixup.
(get_phys_cursor_geometry, format_mode_line_unwind_data)
(get_line_height_property, x_produce_glyphs): Remove unused vars.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 13 Jun 2005 20:49:14 +0000 |
parents | ff6c8b50eefd |
children | 0691dbaf122b e58cb448e07c a1b34dec1104 |
comparison
equal
deleted
inserted
replaced
63383:12107da85908 | 63384:e5a2d6aee2eb |
---|---|
1896 struct glyph_row *row; | 1896 struct glyph_row *row; |
1897 struct glyph *glyph; | 1897 struct glyph *glyph; |
1898 int *heightp; | 1898 int *heightp; |
1899 { | 1899 { |
1900 struct frame *f = XFRAME (WINDOW_FRAME (w)); | 1900 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
1901 int x, y, wd, h, h0, y0; | 1901 int y, wd, h, h0, y0; |
1902 | 1902 |
1903 /* Compute the width of the rectangle to draw. If on a stretch | 1903 /* Compute the width of the rectangle to draw. If on a stretch |
1904 glyph, and `x-stretch-block-cursor' is nil, don't draw a | 1904 glyph, and `x-stretch-block-cursor' is nil, don't draw a |
1905 rectangle as wide as the glyph, but use a canonical character | 1905 rectangle as wide as the glyph, but use a canonical character |
1906 width instead. */ | 1906 width instead. */ |
8250 | 8250 |
8251 static Lisp_Object | 8251 static Lisp_Object |
8252 format_mode_line_unwind_data (obuf) | 8252 format_mode_line_unwind_data (obuf) |
8253 struct buffer *obuf; | 8253 struct buffer *obuf; |
8254 { | 8254 { |
8255 int i = 0; | |
8256 Lisp_Object vector; | 8255 Lisp_Object vector; |
8257 | 8256 |
8258 /* Reduce consing by keeping one vector in | 8257 /* Reduce consing by keeping one vector in |
8259 Vwith_echo_area_save_vector. */ | 8258 Vwith_echo_area_save_vector. */ |
8260 vector = Vmode_line_unwind_vector; | 8259 vector = Vmode_line_unwind_vector; |
19199 static Lisp_Object | 19198 static Lisp_Object |
19200 get_line_height_property (it, prop) | 19199 get_line_height_property (it, prop) |
19201 struct it *it; | 19200 struct it *it; |
19202 Lisp_Object prop; | 19201 Lisp_Object prop; |
19203 { | 19202 { |
19204 Lisp_Object position, val; | 19203 Lisp_Object position; |
19205 | 19204 |
19206 if (STRINGP (it->object)) | 19205 if (STRINGP (it->object)) |
19207 position = make_number (IT_STRING_CHARPOS (*it)); | 19206 position = make_number (IT_STRING_CHARPOS (*it)); |
19208 else if (BUFFERP (it->object)) | 19207 else if (BUFFERP (it->object)) |
19209 position = make_number (IT_CHARPOS (*it)); | 19208 position = make_number (IT_CHARPOS (*it)); |
19550 extra_line_spacing = 0; | 19549 extra_line_spacing = 0; |
19551 } | 19550 } |
19552 else | 19551 else |
19553 { | 19552 { |
19554 Lisp_Object spacing; | 19553 Lisp_Object spacing; |
19555 int total = 0; | |
19556 | 19554 |
19557 it->phys_ascent = it->ascent; | 19555 it->phys_ascent = it->ascent; |
19558 it->phys_descent = it->descent; | 19556 it->phys_descent = it->descent; |
19559 | 19557 |
19560 if ((it->max_ascent > 0 || it->max_descent > 0) | 19558 if ((it->max_ascent > 0 || it->max_descent > 0) |
21572 ? (w->current_matrix)->nrows - 1 | 21570 ? (w->current_matrix)->nrows - 1 |
21573 : 0); | 21571 : 0); |
21574 | 21572 |
21575 /* If the re-rendering position is included in the last | 21573 /* If the re-rendering position is included in the last |
21576 re-rendering area, we should do nothing. */ | 21574 re-rendering area, we should do nothing. */ |
21577 if ( window == dpyinfo->mouse_face_window | 21575 if ( EQ (window, dpyinfo->mouse_face_window) |
21578 && dpyinfo->mouse_face_beg_col <= vpos | 21576 && dpyinfo->mouse_face_beg_col <= vpos |
21579 && vpos < dpyinfo->mouse_face_end_col | 21577 && vpos < dpyinfo->mouse_face_end_col |
21580 && dpyinfo->mouse_face_beg_row == hpos ) | 21578 && dpyinfo->mouse_face_beg_row == hpos ) |
21581 return; | 21579 return; |
21582 | 21580 |