Mercurial > hg > xemacs-beta

comparison src/redisplay.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3078fd1074e8
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
462 462
463 int column_number_start_at_one; 463 int column_number_start_at_one;
464 464
465 Lisp_Object Qtop_bottom; 465 Lisp_Object Qtop_bottom;
466 466
467 #define WINDOW_SCROLLED(w) \ 467 #define WINDOW_SCROLLED(w) ((w)->hscroll > 0 || (w)->left_xoffset)
468 (w->hscroll > 0 || w->left_xoffset)
469 468
470 469
471 /***************************************************************************/ 470 /***************************************************************************/
472 /* */ 471 /* */
473 /* low-level interfaces onto device routines */ 472 /* low-level interfaces onto device routines */
9284 redisplay_variable_changed); 9283 redisplay_variable_changed);
9285 Voverlay_arrow_position = Qnil; 9284 Voverlay_arrow_position = Qnil;
9286 9285
9287 DEFVAR_LISP_MAGIC ("overlay-arrow-string", &Voverlay_arrow_string /* 9286 DEFVAR_LISP_MAGIC ("overlay-arrow-string", &Voverlay_arrow_string /*
9288 String or glyph to display as an arrow. See also `overlay-arrow-position'. 9287 String or glyph to display as an arrow. See also `overlay-arrow-position'.
9289 (Note that despite the name of this variable, it can be set to a glyph as 9288 \(Note that despite the name of this variable, it can be set to a glyph as
9290 well as a string.) 9289 well as a string.)
9291 */ , 9290 */ ,
9292 redisplay_variable_changed); 9291 redisplay_variable_changed);
9293 Voverlay_arrow_string = Qnil; 9292 Voverlay_arrow_string = Qnil;
9294 9293
9449 set_specifier_fallback (Vleft_margin_width, list1 (Fcons (Qnil, Qzero))); 9448 set_specifier_fallback (Vleft_margin_width, list1 (Fcons (Qnil, Qzero)));
9450 set_specifier_caching (Vleft_margin_width, 9449 set_specifier_caching (Vleft_margin_width,
9451 offsetof (struct window, left_margin_width), 9450 offsetof (struct window, left_margin_width),
9452 some_window_value_changed, 9451 some_window_value_changed,
9453 offsetof (struct frame, left_margin_width), 9452 offsetof (struct frame, left_margin_width),
9454 margin_width_changed_in_frame); 9453 margin_width_changed_in_frame, 0);
9455 9454
9456 DEFVAR_SPECIFIER ("right-margin-width", &Vright_margin_width /* 9455 DEFVAR_SPECIFIER ("right-margin-width", &Vright_margin_width /*
9457 *Width of right margin. 9456 *Width of right margin.
9458 This is a specifier; use `set-specifier' to change it. 9457 This is a specifier; use `set-specifier' to change it.
9459 */ ); 9458 */ );
9461 set_specifier_fallback (Vright_margin_width, list1 (Fcons (Qnil, Qzero))); 9460 set_specifier_fallback (Vright_margin_width, list1 (Fcons (Qnil, Qzero)));
9462 set_specifier_caching (Vright_margin_width, 9461 set_specifier_caching (Vright_margin_width,
9463 offsetof (struct window, right_margin_width), 9462 offsetof (struct window, right_margin_width),
9464 some_window_value_changed, 9463 some_window_value_changed,
9465 offsetof (struct frame, right_margin_width), 9464 offsetof (struct frame, right_margin_width),
9466 margin_width_changed_in_frame); 9465 margin_width_changed_in_frame, 0);
9467 9466
9468 DEFVAR_SPECIFIER ("minimum-line-ascent", &Vminimum_line_ascent /* 9467 DEFVAR_SPECIFIER ("minimum-line-ascent", &Vminimum_line_ascent /*
9469 *Minimum ascent height of lines. 9468 *Minimum ascent height of lines.
9470 This is a specifier; use `set-specifier' to change it. 9469 This is a specifier; use `set-specifier' to change it.
9471 */ ); 9470 */ );
9472 Vminimum_line_ascent = Fmake_specifier (Qnatnum); 9471 Vminimum_line_ascent = Fmake_specifier (Qnatnum);
9473 set_specifier_fallback (Vminimum_line_ascent, list1 (Fcons (Qnil, Qzero))); 9472 set_specifier_fallback (Vminimum_line_ascent, list1 (Fcons (Qnil, Qzero)));
9474 set_specifier_caching (Vminimum_line_ascent, 9473 set_specifier_caching (Vminimum_line_ascent,
9475 offsetof (struct window, minimum_line_ascent), 9474 offsetof (struct window, minimum_line_ascent),
9476 some_window_value_changed, 9475 some_window_value_changed,
9477 0, 0); 9476 0, 0, 0);
9478 9477
9479 DEFVAR_SPECIFIER ("minimum-line-descent", &Vminimum_line_descent /* 9478 DEFVAR_SPECIFIER ("minimum-line-descent", &Vminimum_line_descent /*
9480 *Minimum descent height of lines. 9479 *Minimum descent height of lines.
9481 This is a specifier; use `set-specifier' to change it. 9480 This is a specifier; use `set-specifier' to change it.
9482 */ ); 9481 */ );
9483 Vminimum_line_descent = Fmake_specifier (Qnatnum); 9482 Vminimum_line_descent = Fmake_specifier (Qnatnum);
9484 set_specifier_fallback (Vminimum_line_descent, list1 (Fcons (Qnil, Qzero))); 9483 set_specifier_fallback (Vminimum_line_descent, list1 (Fcons (Qnil, Qzero)));
9485 set_specifier_caching (Vminimum_line_descent, 9484 set_specifier_caching (Vminimum_line_descent,
9486 offsetof (struct window, minimum_line_descent), 9485 offsetof (struct window, minimum_line_descent),
9487 some_window_value_changed, 9486 some_window_value_changed,
9488 0, 0); 9487 0, 0, 0);
9489 9488
9490 DEFVAR_SPECIFIER ("use-left-overflow", &Vuse_left_overflow /* 9489 DEFVAR_SPECIFIER ("use-left-overflow", &Vuse_left_overflow /*
9491 *Non-nil means use the left outside margin as extra whitespace when 9490 *Non-nil means use the left outside margin as extra whitespace when
9492 displaying 'whitespace or 'inside-margin glyphs. 9491 displaying 'whitespace or 'inside-margin glyphs.
9493 This is a specifier; use `set-specifier' to change it. 9492 This is a specifier; use `set-specifier' to change it.
9495 Vuse_left_overflow = Fmake_specifier (Qboolean); 9494 Vuse_left_overflow = Fmake_specifier (Qboolean);
9496 set_specifier_fallback (Vuse_left_overflow, list1 (Fcons (Qnil, Qnil))); 9495 set_specifier_fallback (Vuse_left_overflow, list1 (Fcons (Qnil, Qnil)));
9497 set_specifier_caching (Vuse_left_overflow, 9496 set_specifier_caching (Vuse_left_overflow,
9498 offsetof (struct window, use_left_overflow), 9497 offsetof (struct window, use_left_overflow),
9499 some_window_value_changed, 9498 some_window_value_changed,
9500 0, 0); 9499 0, 0, 0);
9501 9500
9502 DEFVAR_SPECIFIER ("use-right-overflow", &Vuse_right_overflow /* 9501 DEFVAR_SPECIFIER ("use-right-overflow", &Vuse_right_overflow /*
9503 *Non-nil means use the right outside margin as extra whitespace when 9502 *Non-nil means use the right outside margin as extra whitespace when
9504 displaying 'whitespace or 'inside-margin glyphs. 9503 displaying 'whitespace or 'inside-margin glyphs.
9505 This is a specifier; use `set-specifier' to change it. 9504 This is a specifier; use `set-specifier' to change it.
9507 Vuse_right_overflow = Fmake_specifier (Qboolean); 9506 Vuse_right_overflow = Fmake_specifier (Qboolean);
9508 set_specifier_fallback (Vuse_right_overflow, list1 (Fcons (Qnil, Qnil))); 9507 set_specifier_fallback (Vuse_right_overflow, list1 (Fcons (Qnil, Qnil)));
9509 set_specifier_caching (Vuse_right_overflow, 9508 set_specifier_caching (Vuse_right_overflow,
9510 offsetof (struct window, use_right_overflow), 9509 offsetof (struct window, use_right_overflow),
9511 some_window_value_changed, 9510 some_window_value_changed,
9512 0, 0); 9511 0, 0, 0);
9513 9512
9514 DEFVAR_SPECIFIER ("text-cursor-visible-p", &Vtext_cursor_visible_p /* 9513 DEFVAR_SPECIFIER ("text-cursor-visible-p", &Vtext_cursor_visible_p /*
9515 *Non-nil means the text cursor is visible (this is usually the case). 9514 *Non-nil means the text cursor is visible (this is usually the case).
9516 This is a specifier; use `set-specifier' to change it. 9515 This is a specifier; use `set-specifier' to change it.
9517 */ ); 9516 */ );
9518 Vtext_cursor_visible_p = Fmake_specifier (Qboolean); 9517 Vtext_cursor_visible_p = Fmake_specifier (Qboolean);
9519 set_specifier_fallback (Vtext_cursor_visible_p, list1 (Fcons (Qnil, Qt))); 9518 set_specifier_fallback (Vtext_cursor_visible_p, list1 (Fcons (Qnil, Qt)));
9520 set_specifier_caching (Vtext_cursor_visible_p, 9519 set_specifier_caching (Vtext_cursor_visible_p,
9521 offsetof (struct window, text_cursor_visible_p), 9520 offsetof (struct window, text_cursor_visible_p),
9522 text_cursor_visible_p_changed, 9521 text_cursor_visible_p_changed,
9523 0, 0); 9522 0, 0, 0);
9524 9523
9525 } 9524 }