aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.c
diff options
context:
space:
mode:
authorKaroly Lorentey2006-07-14 05:56:32 +0000
committerKaroly Lorentey2006-07-14 05:56:32 +0000
commit99715bbc447eb633e45ffa23b87284771ce3ac74 (patch)
tree3a8a53dfe3dbdd9f8e36965e9f043eae522d3c0e /src/syntax.c
parent556b89447234f15d1784a23dadbfe429464463a8 (diff)
parent763bb2d43615bc3ae816422f965d76d5e1ae4bdd (diff)
downloademacs-99715bbc447eb633e45ffa23b87284771ce3ac74.tar.gz
emacs-99715bbc447eb633e45ffa23b87284771ce3ac74.zip
Merged from emacs@sv.gnu.org.
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-331 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-332 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-333 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-334 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-335 Add note about "link" button-class to etc/TODO * emacs@sv.gnu.org/emacs--devo--0--patch-336 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-337 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-338 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-339 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-340 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-341 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-342 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-343 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-344 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-345 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-346 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-347 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-348 Update for ERC 5.1.3. * emacs@sv.gnu.org/emacs--devo--0--patch-349 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-350 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/gnus--rel--5.10--patch-111 Update from CVS: texi/gnus.texi (Summary Buffer Lines): Fix typo. * emacs@sv.gnu.org/gnus--rel--5.10--patch-112 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-113 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-114 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-572
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c46
1 files changed, 24 insertions, 22 deletions
diff --git a/src/syntax.c b/src/syntax.c
index 9af4773a01b..9959c17ad47 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.
@@ -748,9 +749,8 @@ static void
748check_syntax_table (obj) 749check_syntax_table (obj)
749 Lisp_Object obj; 750 Lisp_Object obj;
750{ 751{
751 if (!(CHAR_TABLE_P (obj) 752 CHECK_TYPE (CHAR_TABLE_P (obj) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table),
752 && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table))) 753 Qsyntax_table_p, obj);
753 wrong_type_argument (Qsyntax_table_p, obj);
754} 754}
755 755
756DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, 756DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,
@@ -1890,9 +1890,10 @@ in_classes (c, iso_classes)
1890static int 1890static int
1891forw_comment (from, from_byte, stop, nesting, style, prev_syntax, 1891forw_comment (from, from_byte, stop, nesting, style, prev_syntax,
1892 charpos_ptr, bytepos_ptr, incomment_ptr) 1892 charpos_ptr, bytepos_ptr, incomment_ptr)
1893 int from, from_byte, stop; 1893 EMACS_INT from, from_byte, stop;
1894 int nesting, style, prev_syntax; 1894 int nesting, style, prev_syntax;
1895 int *charpos_ptr, *bytepos_ptr, *incomment_ptr; 1895 EMACS_INT *charpos_ptr, *bytepos_ptr;
1896 int *incomment_ptr;
1896{ 1897{
1897 register int c, c1; 1898 register int c, c1;
1898 register enum syntaxcode code; 1899 register enum syntaxcode code;
@@ -1992,16 +1993,16 @@ between them, return t; otherwise return nil. */)
1992 (count) 1993 (count)
1993 Lisp_Object count; 1994 Lisp_Object count;
1994{ 1995{
1995 register int from; 1996 register EMACS_INT from;
1996 int from_byte; 1997 EMACS_INT from_byte;
1997 register int stop; 1998 register EMACS_INT stop;
1998 register int c, c1; 1999 register int c, c1;
1999 register enum syntaxcode code; 2000 register enum syntaxcode code;
2000 int comstyle = 0; /* style of comment encountered */ 2001 int comstyle = 0; /* style of comment encountered */
2001 int comnested = 0; /* whether the comment is nestable or not */ 2002 int comnested = 0; /* whether the comment is nestable or not */
2002 int found; 2003 int found;
2003 int count1; 2004 EMACS_INT count1;
2004 int out_charpos, out_bytepos; 2005 EMACS_INT out_charpos, out_bytepos;
2005 int dummy; 2006 int dummy;
2006 2007
2007 CHECK_NUMBER (count); 2008 CHECK_NUMBER (count);
@@ -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
@@ -2700,7 +2702,7 @@ scan_sexps_forward (stateptr, from, from_byte, end, targetdepth,
2700 int boundary_stop = commentstop == -1; 2702 int boundary_stop = commentstop == -1;
2701 int nofence; 2703 int nofence;
2702 int found; 2704 int found;
2703 int out_bytepos, out_charpos; 2705 EMACS_INT out_bytepos, out_charpos;
2704 int temp; 2706 int temp;
2705 2707
2706 prev_from = from; 2708 prev_from = from;