Mercurial > hg > xemacs-beta

comparison src/redisplay.c @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
475 Lisp_Object Vleft_margin_width, Vright_margin_width; 475 Lisp_Object Vleft_margin_width, Vright_margin_width;
476 Lisp_Object Vminimum_line_ascent, Vminimum_line_descent; 476 Lisp_Object Vminimum_line_ascent, Vminimum_line_descent;
477 Lisp_Object Vuse_left_overflow, Vuse_right_overflow; 477 Lisp_Object Vuse_left_overflow, Vuse_right_overflow;
478 Lisp_Object Vtext_cursor_visible_p; 478 Lisp_Object Vtext_cursor_visible_p;
479 479
480 int column_number_start_at_one;
480 481
481 /***************************************************************************/ 482 /***************************************************************************/
482 /* */ 483 /* */
483 /* low-level interfaces onto device routines */ 484 /* low-level interfaces onto device routines */
484 /* */ 485 /* */
5701 break; 5702 break;
5702 5703
5703 /* print the current column */ 5704 /* print the current column */
5704 case 'c': 5705 case 'c':
5705 { 5706 {
5706 int col = current_column (b); 5707 int col = current_column (b) + (column_number_start_at_one != 0);
5707 int temp = col; 5708 int temp = col;
5708 int size = 2; 5709 int size = 2;
5709 char *buf; 5710 char *buf;
5710 5711
5711 while (temp >= 10) 5712 while (temp >= 10)
8296 DEFVAR_LISP ("redisplay-end-trigger-functions", 8297 DEFVAR_LISP ("redisplay-end-trigger-functions",
8297 &Vredisplay_end_trigger_functions /* 8298 &Vredisplay_end_trigger_functions /*
8298 See `set-window-redisplay-end-trigger'. 8299 See `set-window-redisplay-end-trigger'.
8299 */ ); 8300 */ );
8300 Vredisplay_end_trigger_functions = Qnil; 8301 Vredisplay_end_trigger_functions = Qnil;
8302
8303 DEFVAR_BOOL ("column-number-start-at-one", &column_number_start_at_one /*
8304 Non-nil means column display number starts at 1.
8305 */ );
8306 column_number_start_at_one = 1;
8301 } 8307 }
8302 8308
8303 void 8309 void
8304 specifier_vars_of_redisplay (void) 8310 specifier_vars_of_redisplay (void)
8305 { 8311 {
8395 set_specifier_caching (Vtext_cursor_visible_p, 8401 set_specifier_caching (Vtext_cursor_visible_p,
8396 slot_offset (struct window, 8402 slot_offset (struct window,
8397 text_cursor_visible_p), 8403 text_cursor_visible_p),
8398 text_cursor_visible_p_changed, 8404 text_cursor_visible_p_changed,
8399 0, 0); 8405 0, 0);
8400 } 8406
8407 }