Mercurial > hg > xemacs-beta
comparison src/redisplay.c @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:56 +0200 |
parents | ac2d302a0011 |
children | 49a24b4fd526 |
comparison
equal
deleted
inserted
replaced
3:30df88044ec6 | 4:b82b59fe008d |
---|---|
471 Lisp_Object Vleft_margin_width, Vright_margin_width; | 471 Lisp_Object Vleft_margin_width, Vright_margin_width; |
472 Lisp_Object Vminimum_line_ascent, Vminimum_line_descent; | 472 Lisp_Object Vminimum_line_ascent, Vminimum_line_descent; |
473 Lisp_Object Vuse_left_overflow, Vuse_right_overflow; | 473 Lisp_Object Vuse_left_overflow, Vuse_right_overflow; |
474 Lisp_Object Vtext_cursor_visible_p; | 474 Lisp_Object Vtext_cursor_visible_p; |
475 | 475 |
476 int column_number_start_at_one; | |
476 | 477 |
477 /***************************************************************************/ | 478 /***************************************************************************/ |
478 /* */ | 479 /* */ |
479 /* low-level interfaces onto device routines */ | 480 /* low-level interfaces onto device routines */ |
480 /* */ | 481 /* */ |
5697 break; | 5698 break; |
5698 | 5699 |
5699 /* print the current column */ | 5700 /* print the current column */ |
5700 case 'c': | 5701 case 'c': |
5701 { | 5702 { |
5702 int col = current_column (b); | 5703 int col = current_column (b) + (column_number_start_at_one != 0); |
5703 int temp = col; | 5704 int temp = col; |
5704 int size = 2; | 5705 int size = 2; |
5705 char *buf; | 5706 char *buf; |
5706 | 5707 |
5707 while (temp >= 10) | 5708 while (temp >= 10) |
8276 DEFVAR_LISP ("redisplay-end-trigger-functions", | 8277 DEFVAR_LISP ("redisplay-end-trigger-functions", |
8277 &Vredisplay_end_trigger_functions /* | 8278 &Vredisplay_end_trigger_functions /* |
8278 See `set-window-redisplay-end-trigger'. | 8279 See `set-window-redisplay-end-trigger'. |
8279 */ ); | 8280 */ ); |
8280 Vredisplay_end_trigger_functions = Qnil; | 8281 Vredisplay_end_trigger_functions = Qnil; |
8282 | |
8283 DEFVAR_BOOL ("column-number-start-at-one", &column_number_start_at_one /* | |
8284 Non-nil means column display number starts at 1. | |
8285 */ ); | |
8286 column_number_start_at_one = 1; | |
8281 } | 8287 } |
8282 | 8288 |
8283 void | 8289 void |
8284 specifier_vars_of_redisplay (void) | 8290 specifier_vars_of_redisplay (void) |
8285 { | 8291 { |
8375 set_specifier_caching (Vtext_cursor_visible_p, | 8381 set_specifier_caching (Vtext_cursor_visible_p, |
8376 slot_offset (struct window, | 8382 slot_offset (struct window, |
8377 text_cursor_visible_p), | 8383 text_cursor_visible_p), |
8378 text_cursor_visible_p_changed, | 8384 text_cursor_visible_p_changed, |
8379 0, 0); | 8385 0, 0); |
8380 } | 8386 |
8387 } |