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 }