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
ccf39e56
Commit
ccf39e56
authored
Mar 29, 1994
by
Karl Heuer
Browse files
(Fcompute_motion): Typecheck all arguments.
parent
546714cf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
0 deletions
+9
-0
src/indent.c
src/indent.c
+9
-0
No files found.
src/indent.c
View file @
ccf39e56
...
...
@@ -651,11 +651,20 @@ visible section of the buffer, and pass LINE and COL as TOPOS.")
struct
position
*
pos
;
int
hscroll
,
tab_offset
;
CHECK_INT
(
from
,
0
);
CHECK_CONS
(
frompos
,
0
);
CHECK_INT
(
XCONS
(
frompos
)
->
car
,
0
);
CHECK_INT
(
XCONS
(
frompos
)
->
cdr
,
0
);
CHECK_INT
(
to
,
0
);
CHECK_CONS
(
topos
,
0
);
CHECK_INT
(
XCONS
(
topos
)
->
car
,
0
);
CHECK_INT
(
XCONS
(
topos
)
->
cdr
,
0
);
CHECK_INT
(
width
);
if
(
!
NILP
(
offsets
))
{
CHECK_CONS
(
offsets
,
0
);
CHECK_INT
(
XCONS
(
offsets
)
->
car
);
CHECK_INT
(
XCONS
(
offsets
)
->
cdr
);
hscroll
=
XINT
(
XCONS
(
offsets
)
->
car
);
tab_offset
=
XINT
(
XCONS
(
offsets
)
->
cdr
);
}
...
...
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