aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.c
diff options
context:
space:
mode:
authorStefan Monnier2006-07-09 14:36:07 +0000
committerStefan Monnier2006-07-09 14:36:07 +0000
commit932e6895deb60328c871a0896dbfb48df36a62a8 (patch)
treef1d1fadcd185e75712ec6b80ba31dd0765b2d295 /src/syntax.c
parent2312c580d3740dc27531212571aac17ecc84d3cd (diff)
downloademacs-932e6895deb60328c871a0896dbfb48df36a62a8.tar.gz
emacs-932e6895deb60328c871a0896dbfb48df36a62a8.zip
(back_comment, scan_lists): Also use EMACS_INT for buffer positions.
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c24
1 files changed, 13 insertions, 11 deletions
diff --git a/src/syntax.c b/src/syntax.c
index d72fe4636db..eb37cbb647f 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -97,10 +97,11 @@ static int find_start_modiff;
97 97
98 98
99static int find_defun_start P_ ((int, int)); 99static int find_defun_start P_ ((int, int));
100static int back_comment P_ ((int, int, int, int, int, int *, int *)); 100static int back_comment P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int, int,
101 EMACS_INT *, EMACS_INT *));
101static int char_quoted P_ ((int, int)); 102static int char_quoted P_ ((int, int));
102static Lisp_Object skip_chars P_ ((int, int, Lisp_Object, Lisp_Object, int)); 103static Lisp_Object skip_chars P_ ((int, int, Lisp_Object, Lisp_Object, int));
103static Lisp_Object scan_lists P_ ((int, int, int, int)); 104static Lisp_Object scan_lists P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int));
104static void scan_sexps_forward P_ ((struct lisp_parse_state *, 105static void scan_sexps_forward P_ ((struct lisp_parse_state *,
105 int, int, int, int, 106 int, int, int, int,
106 int, Lisp_Object, int)); 107 int, Lisp_Object, int));
@@ -471,9 +472,9 @@ prev_char_comend_first (pos, pos_byte)
471 472
472static int 473static int
473back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_ptr) 474back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_ptr)
474 int from, from_byte, stop; 475 EMACS_INT from, from_byte, stop;
475 int comnested, comstyle; 476 int comnested, comstyle;
476 int *charpos_ptr, *bytepos_ptr; 477 EMACS_INT *charpos_ptr, *bytepos_ptr;
477{ 478{
478 /* Look back, counting the parity of string-quotes, 479 /* Look back, counting the parity of string-quotes,
479 and recording the comment-starters seen. 480 and recording the comment-starters seen.
@@ -2199,11 +2200,12 @@ between them, return t; otherwise return nil. */)
2199 2200
2200static Lisp_Object 2201static Lisp_Object
2201scan_lists (from, count, depth, sexpflag) 2202scan_lists (from, count, depth, sexpflag)
2202 register int from; 2203 register EMACS_INT from;
2203 int count, depth, sexpflag; 2204 EMACS_INT count, depth;
2205 int sexpflag;
2204{ 2206{
2205 Lisp_Object val; 2207 Lisp_Object val;
2206 register int stop = count > 0 ? ZV : BEGV; 2208 register EMACS_INT stop = count > 0 ? ZV : BEGV;
2207 register int c, c1; 2209 register int c, c1;
2208 int stringterm; 2210 int stringterm;
2209 int quoted; 2211 int quoted;
@@ -2212,11 +2214,11 @@ scan_lists (from, count, depth, sexpflag)
2212 int min_depth = depth; /* Err out if depth gets less than this. */ 2214 int min_depth = depth; /* Err out if depth gets less than this. */
2213 int comstyle = 0; /* style of comment encountered */ 2215 int comstyle = 0; /* style of comment encountered */
2214 int comnested = 0; /* whether the comment is nestable or not */ 2216 int comnested = 0; /* whether the comment is nestable or not */
2215 int temp_pos; 2217 EMACS_INT temp_pos;
2216 int last_good = from; 2218 EMACS_INT last_good = from;
2217 int found; 2219 int found;
2218 int from_byte; 2220 EMACS_INT from_byte;
2219 int out_bytepos, out_charpos; 2221 EMACS_INT out_bytepos, out_charpos;
2220 int temp, dummy; 2222 int temp, dummy;
2221 int multibyte_symbol_p = sexpflag && multibyte_syntax_as_symbol; 2223 int multibyte_symbol_p = sexpflag && multibyte_syntax_as_symbol;
2222 2224