Mercurial > emacs
comparison src/indent.c @ 8648:f047d8c6db79
(Findent_to): Pass new arg to Finsert_char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Aug 1994 06:08:54 +0000 |
| parents | c67a4530319e |
| children | 2ef3da79aabb |
comparison
equal
deleted
inserted
replaced
| 8647:d66b80e5bc77 | 8648:f047d8c6db79 |
|---|---|
| 204 { | 204 { |
| 205 Lisp_Object n; | 205 Lisp_Object n; |
| 206 XFASTINT (n) = mincol / tab_width - fromcol / tab_width; | 206 XFASTINT (n) = mincol / tab_width - fromcol / tab_width; |
| 207 if (XFASTINT (n) != 0) | 207 if (XFASTINT (n) != 0) |
| 208 { | 208 { |
| 209 Finsert_char (make_number ('\t'), n); | 209 Finsert_char (make_number ('\t'), n, Qt); |
| 210 | 210 |
| 211 fromcol = (mincol / tab_width) * tab_width; | 211 fromcol = (mincol / tab_width) * tab_width; |
| 212 } | 212 } |
| 213 } | 213 } |
| 214 | 214 |
| 215 XFASTINT (col) = mincol - fromcol; | 215 XFASTINT (col) = mincol - fromcol; |
| 216 Finsert_char (make_number (' '), col); | 216 Finsert_char (make_number (' '), col, Qt); |
| 217 | 217 |
| 218 last_known_column = mincol; | 218 last_known_column = mincol; |
| 219 last_known_column_point = point; | 219 last_known_column_point = point; |
| 220 last_known_column_modified = MODIFF; | 220 last_known_column_modified = MODIFF; |
| 221 | 221 |