diff options
| author | Karoly Lorentey | 2006-07-14 05:56:32 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-07-14 05:56:32 +0000 |
| commit | 99715bbc447eb633e45ffa23b87284771ce3ac74 (patch) | |
| tree | 3a8a53dfe3dbdd9f8e36965e9f043eae522d3c0e /src/syntax.c | |
| parent | 556b89447234f15d1784a23dadbfe429464463a8 (diff) | |
| parent | 763bb2d43615bc3ae816422f965d76d5e1ae4bdd (diff) | |
| download | emacs-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.c | 46 |
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 | ||
| 99 | static int find_defun_start P_ ((int, int)); | 99 | static int find_defun_start P_ ((int, int)); |
| 100 | static int back_comment P_ ((int, int, int, int, int, int *, int *)); | 100 | static int back_comment P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int, int, |
| 101 | EMACS_INT *, EMACS_INT *)); | ||
| 101 | static int char_quoted P_ ((int, int)); | 102 | static int char_quoted P_ ((int, int)); |
| 102 | static Lisp_Object skip_chars P_ ((int, int, Lisp_Object, Lisp_Object, int)); | 103 | static Lisp_Object skip_chars P_ ((int, int, Lisp_Object, Lisp_Object, int)); |
| 103 | static Lisp_Object scan_lists P_ ((int, int, int, int)); | 104 | static Lisp_Object scan_lists P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int)); |
| 104 | static void scan_sexps_forward P_ ((struct lisp_parse_state *, | 105 | static 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 | ||
| 472 | static int | 473 | static int |
| 473 | back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_ptr) | 474 | back_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 | |||
| 748 | check_syntax_table (obj) | 749 | check_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 | ||
| 756 | DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, | 756 | DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, |
| @@ -1890,9 +1890,10 @@ in_classes (c, iso_classes) | |||
| 1890 | static int | 1890 | static int |
| 1891 | forw_comment (from, from_byte, stop, nesting, style, prev_syntax, | 1891 | forw_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 | ||
| 2200 | static Lisp_Object | 2201 | static Lisp_Object |
| 2201 | scan_lists (from, count, depth, sexpflag) | 2202 | scan_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; |