Mercurial > emacs
changeset 3720:408c7ee69be7
(scan_lists, Fforward_comment): Pass 0 as commentstop arg
to scan_sexps_forward.
(scan_sexps_forward, char_quoted): Now static.
(describe_syntax, describe_syntax_1): Now static.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 13 Jun 1993 23:57:33 +0000 |
| parents | 695181e4bc20 |
| children | 4550c56785d8 |
| files | src/syntax.c |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Sun Jun 13 23:15:39 1993 +0000 +++ b/src/syntax.c Sun Jun 13 23:57:33 1993 +0000 @@ -27,6 +27,9 @@ Lisp_Object Qsyntax_table_p; +static void scan_sexps_forward (); +static int char_quoted (); + int words_include_escapes; /* This is the internal form of the parse state used in parse-partial-sexp. */ @@ -328,6 +331,7 @@ /* Dump syntax table to buffer in human-readable format */ +static void describe_syntax (value) Lisp_Object value; { @@ -444,7 +448,7 @@ insert_string ("\n"); } -Lisp_Object +static Lisp_Object describe_syntax_1 (vector) Lisp_Object vector; { @@ -805,7 +809,7 @@ last passed a comment starter. */ struct lisp_parse_state state; scan_sexps_forward (&state, find_defun_start (comment_end), - comment_end - 1, -10000, 0, Qnil, 1); + comment_end - 1, -10000, 0, Qnil, 0); if (state.incomment) from = state.comstart; else @@ -1192,7 +1196,7 @@ last passed a comment starter. */ struct lisp_parse_state state; scan_sexps_forward (&state, find_defun_start (comment_end), - comment_end - 1, -10000, 0, Qnil, 1); + comment_end - 1, -10000, 0, Qnil, 0); if (state.incomment) from = state.comstart; else @@ -1238,6 +1242,7 @@ /* NOTREACHED */ } +static int char_quoted (pos) register int pos; { @@ -1321,6 +1326,7 @@ If STOPBEFORE is nonzero, stop at the start of an atom. If COMMENTSTOP is nonzero, stop at the start of a comment. */ +static void scan_sexps_forward (stateptr, from, end, targetdepth, stopbefore, oldstate, commentstop) struct lisp_parse_state *stateptr;