aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-03-23 00:54:49 +0000
committerRichard M. Stallman1993-03-23 00:54:49 +0000
commitccdcf1f5402d76162aed30c2498fac1ab9b56ea5 (patch)
treee883c9078a23813987c06ebd146e9e231a16fa59
parent54ff581a6f0d3c755d3acfafd7d5708b6090502d (diff)
downloademacs-ccdcf1f5402d76162aed30c2498fac1ab9b56ea5.tar.gz
emacs-ccdcf1f5402d76162aed30c2498fac1ab9b56ea5.zip
(current_column, Findent_to, position_indentation):
(Fmove_to_column, compute_motion): Allow tab_width up to 1000.
-rw-r--r--src/indent.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/indent.c b/src/indent.c
index 9258dcc74db..44e3f14be3a 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -116,7 +116,7 @@ current_column ()
116 else 116 else
117 stop = GAP_END_ADDR; 117 stop = GAP_END_ADDR;
118 118
119 if (tab_width <= 0 || tab_width > 20) tab_width = 8; 119 if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
120 120
121 col = 0, tab_seen = 0, post_tab = 0; 121 col = 0, tab_seen = 0, post_tab = 0;
122 122
@@ -197,7 +197,7 @@ even if that goes past COLUMN; by default, MIN is zero.")
197 if (fromcol == mincol) 197 if (fromcol == mincol)
198 return make_number (mincol); 198 return make_number (mincol);
199 199
200 if (tab_width <= 0 || tab_width > 20) tab_width = 8; 200 if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
201 201
202 if (indent_tabs_mode) 202 if (indent_tabs_mode)
203 { 203 {
@@ -243,7 +243,7 @@ position_indentation (pos)
243 register unsigned char *p; 243 register unsigned char *p;
244 register unsigned char *stop; 244 register unsigned char *stop;
245 245
246 if (tab_width <= 0 || tab_width > 20) tab_width = 8; 246 if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
247 247
248 stop = &FETCH_CHAR (BUFFER_CEILING_OF (pos)) + 1; 248 stop = &FETCH_CHAR (BUFFER_CEILING_OF (pos)) + 1;
249 p = &FETCH_CHAR (pos); 249 p = &FETCH_CHAR (pos);
@@ -299,7 +299,7 @@ and if COLUMN is in the middle of a tab character, change it to spaces.")
299 int prev_col; 299 int prev_col;
300 int c; 300 int c;
301 301
302 if (tab_width <= 0 || tab_width > 20) tab_width = 8; 302 if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
303 CHECK_NATNUM (column, 0); 303 CHECK_NATNUM (column, 0);
304 goal = XINT (column); 304 goal = XINT (column);
305 305
@@ -437,7 +437,7 @@ compute_motion (from, fromvpos, fromhpos, to, tovpos, tohpos, width, hscroll, ta
437 = (selective && dp && XTYPE (DISP_INVIS_VECTOR (dp)) == Lisp_Vector 437 = (selective && dp && XTYPE (DISP_INVIS_VECTOR (dp)) == Lisp_Vector
438 ? XVECTOR (DISP_INVIS_VECTOR (dp))->size : 0); 438 ? XVECTOR (DISP_INVIS_VECTOR (dp))->size : 0);
439 439
440 if (tab_width <= 0 || tab_width > 20) tab_width = 8; 440 if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
441 for (pos = from; pos < to; pos++) 441 for (pos = from; pos < to; pos++)
442 { 442 {
443 /* Stop if past the target screen position. */ 443 /* Stop if past the target screen position. */