Mercurial > hg > xemacs-beta
diff src/syntax.c @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children | 0293115a14e9 |
line wrap: on
line diff
--- a/src/syntax.c Mon Aug 13 08:45:53 2007 +0200 +++ b/src/syntax.c Mon Aug 13 08:46:35 2007 +0200 @@ -55,26 +55,26 @@ /* This is the internal form of the parse state used in parse-partial-sexp. */ struct lisp_parse_state - { - int depth; /* Depth at end of parsing */ - Emchar instring; /* -1 if not within string, else desired terminator. */ - int incomment; /* Nonzero if within a comment at end of parsing */ - int comstyle; /* comment style a=0, or b=1 */ - int quoted; /* Nonzero if just after an escape char at end of +{ + int depth; /* Depth at end of parsing */ + Emchar instring; /* -1 if not within string, else desired terminator */ + int incomment; /* Nonzero if within a comment at end of parsing */ + int comstyle; /* comment style a=0, or b=1 */ + int quoted; /* Nonzero if just after an escape char at end of parsing */ - Bufpos thislevelstart;/* Char number of most recent start-of-expression - at current level */ - Bufpos prevlevelstart;/* Char number of start of containing expression */ - Bufpos location; /* Char number at which parsing stopped. */ - int mindepth; /* Minimum depth seen while scanning. */ - Bufpos comstart; /* Position just after last comment starter. */ - }; + Bufpos thislevelstart;/* Char number of most recent start-of-expression + at current level */ + Bufpos prevlevelstart;/* Char number of start of containing expression */ + Bufpos location; /* Char number at which parsing stopped */ + int mindepth; /* Minimum depth seen while scanning */ + Bufpos comstart; /* Position just after last comment starter */ +}; /* These variables are a cache for finding the start of a defun. - find_start_pos is the place for which the defun start was found. - find_start_value is the defun start position found for it. + find_start_pos is the place for which the defun start was found. + find_start_value is the defun start position found for it. find_start_buffer is the buffer it was found in. - find_start_begv is the BEGV value when it was found. + find_start_begv is the BEGV value when it was found. find_start_modiff is the value of MODIFF when it was found. */ static Bufpos find_start_pos; @@ -117,11 +117,11 @@ } /* Record what we found, for the next try. */ - find_start_value = tem; + find_start_value = tem; find_start_buffer = buf; find_start_modiff = BUF_MODIFF (buf); - find_start_begv = BUF_BEGV (buf); - find_start_pos = pos; + find_start_begv = BUF_BEGV (buf); + find_start_pos = pos; return find_start_value; } @@ -131,7 +131,7 @@ Any vector of 256 elements will do. */ ) (obj) - Lisp_Object obj; + Lisp_Object obj; { if (VECTORP (obj) && vector_length (XVECTOR (obj)) == 0400) return Qt; @@ -201,8 +201,8 @@ } /* Convert a letter which signifies a syntax code - into the code it signifies. - This is used by modify-syntax-entry, and other things. */ + into the code it signifies. + This is used by modify-syntax-entry, and other things. */ CONST unsigned char syntax_spec_code[0400] = { 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, @@ -252,7 +252,7 @@ syntax table. */ ) (ch, table) - Lisp_Object ch, table; + Lisp_Object ch, table; { CHECK_CHAR_COERCE_INT (ch); table = check_syntax_table (table, current_buffer->syntax_table); @@ -389,7 +389,7 @@ and nil is returned. */ ) (count, buffer) - Lisp_Object count, buffer; + Lisp_Object count, buffer; { Bufpos val; struct buffer *buf = decode_buffer (buffer, 0); @@ -595,8 +595,8 @@ Point is set in either case. Optional argument BUFFER defaults to the current buffer. */ ) - (n, buffer) - Lisp_Object n, buffer; + (n, buffer) + Lisp_Object n, buffer; { Bufpos from; Bufpos stop;