comparison src/indent.c @ 37864:db3e294b4ce2

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Tue, 29 May 2001 11:10:47 +0000
parents 89efd94a5832
children 90ab35fe206c
comparison
equal deleted inserted replaced
37863:26de49e18fd7 37864:db3e294b4ce2
622 last_known_column_modified = MODIFF; 622 last_known_column_modified = MODIFF;
623 623
624 return col; 624 return col;
625 } 625 }
626 626
627
628 #if 0 /* Not used. */
629
627 /* Return the width in columns of the part of STRING from BEG to END. 630 /* Return the width in columns of the part of STRING from BEG to END.
628 If BEG is nil, that stands for the beginning of STRING. 631 If BEG is nil, that stands for the beginning of STRING.
629 If END is nil, that stands for the end of STRING. */ 632 If END is nil, that stands for the end of STRING. */
630 633
631 static int 634 static int
699 col += post_tab; 702 col += post_tab;
700 } 703 }
701 704
702 return col; 705 return col;
703 } 706 }
707
708 #endif /* 0 */
709
704 710
705 DEFUN ("indent-to", Findent_to, Sindent_to, 1, 2, "NIndent to column: ", 711 DEFUN ("indent-to", Findent_to, Sindent_to, 1, 2, "NIndent to column: ",
706 "Indent from point with tabs and spaces until COLUMN is reached.\n\ 712 "Indent from point with tabs and spaces until COLUMN is reached.\n\
707 Optional second argument MININUM says always do at least MININUM spaces\n\ 713 Optional second argument MININUM says always do at least MININUM spaces\n\
708 even if that goes past COLUMN; by default, MININUM is zero.") 714 even if that goes past COLUMN; by default, MININUM is zero.")