Mercurial > emacs
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.") |