Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ccdcf1f5
Commit
ccdcf1f5
authored
Mar 23, 1993
by
Richard M. Stallman
Browse files
(current_column, Findent_to, position_indentation):
(Fmove_to_column, compute_motion): Allow tab_width up to 1000.
parent
54ff581a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
src/indent.c
src/indent.c
+5
-5
No files found.
src/indent.c
View file @
ccdcf1f5
...
...
@@ -116,7 +116,7 @@ current_column ()
else
stop
=
GAP_END_ADDR
;
if
(
tab_width
<=
0
||
tab_width
>
2
0
)
tab_width
=
8
;
if
(
tab_width
<=
0
||
tab_width
>
100
0
)
tab_width
=
8
;
col
=
0
,
tab_seen
=
0
,
post_tab
=
0
;
...
...
@@ -197,7 +197,7 @@ even if that goes past COLUMN; by default, MIN is zero.")
if
(
fromcol
==
mincol
)
return
make_number
(
mincol
);
if
(
tab_width
<=
0
||
tab_width
>
2
0
)
tab_width
=
8
;
if
(
tab_width
<=
0
||
tab_width
>
100
0
)
tab_width
=
8
;
if
(
indent_tabs_mode
)
{
...
...
@@ -243,7 +243,7 @@ position_indentation (pos)
register
unsigned
char
*
p
;
register
unsigned
char
*
stop
;
if
(
tab_width
<=
0
||
tab_width
>
2
0
)
tab_width
=
8
;
if
(
tab_width
<=
0
||
tab_width
>
100
0
)
tab_width
=
8
;
stop
=
&
FETCH_CHAR
(
BUFFER_CEILING_OF
(
pos
))
+
1
;
p
=
&
FETCH_CHAR
(
pos
);
...
...
@@ -299,7 +299,7 @@ and if COLUMN is in the middle of a tab character, change it to spaces.")
int
prev_col
;
int
c
;
if
(
tab_width
<=
0
||
tab_width
>
2
0
)
tab_width
=
8
;
if
(
tab_width
<=
0
||
tab_width
>
100
0
)
tab_width
=
8
;
CHECK_NATNUM
(
column
,
0
);
goal
=
XINT
(
column
);
...
...
@@ -437,7 +437,7 @@ compute_motion (from, fromvpos, fromhpos, to, tovpos, tohpos, width, hscroll, ta
=
(
selective
&&
dp
&&
XTYPE
(
DISP_INVIS_VECTOR
(
dp
))
==
Lisp_Vector
?
XVECTOR
(
DISP_INVIS_VECTOR
(
dp
))
->
size
:
0
);
if
(
tab_width
<=
0
||
tab_width
>
2
0
)
tab_width
=
8
;
if
(
tab_width
<=
0
||
tab_width
>
100
0
)
tab_width
=
8
;
for
(
pos
=
from
;
pos
<
to
;
pos
++
)
{
/* Stop if past the target screen position. */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment