Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 434:9d177e8d4150 r21-2-25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
383 if (!(words_include_escapes 383 if (!(words_include_escapes
384 && (code == Sescape || code == Scharquote))) 384 && (code == Sescape || code == Scharquote)))
385 if (code != Sword 385 if (code != Sword
386 #ifdef MULE 386 #ifdef MULE
387 || WORD_BOUNDARY_P (ch0, ch1) 387 || WORD_BOUNDARY_P (ch0, ch1)
388 #endif 388 #endif
389 ) 389 )
390 break; 390 break;
391 #ifdef MULE 391 #ifdef MULE
392 ch0 = ch1; 392 ch0 = ch1;
393 #endif 393 #endif
394 from++; 394 from++;
395 } 395 }
396 count--; 396 count--;
397 } 397 }
398 398
1025 } 1025 }
1026 1026
1027 if (SYNTAX_PREFIX_UNSAFE (mirrortab, c)) 1027 if (SYNTAX_PREFIX_UNSAFE (mirrortab, c))
1028 continue; 1028 continue;
1029 1029
1030 switch (((quoted) ? Sword : code)) 1030 switch (quoted ? Sword : code)
1031 { 1031 {
1032 case Sword: 1032 case Sword:
1033 case Ssymbol: 1033 case Ssymbol:
1034 if (depth || !sexpflag) break; 1034 if (depth || !sexpflag) break;
1035 /* This word counts as a sexp; count object finished after 1035 /* This word counts as a sexp; count object finished after
1679 vars_of_syntax (void) 1679 vars_of_syntax (void)
1680 { 1680 {
1681 DEFVAR_BOOL ("parse-sexp-ignore-comments", &parse_sexp_ignore_comments /* 1681 DEFVAR_BOOL ("parse-sexp-ignore-comments", &parse_sexp_ignore_comments /*
1682 Non-nil means `forward-sexp', etc., should treat comments as whitespace. 1682 Non-nil means `forward-sexp', etc., should treat comments as whitespace.
1683 */ ); 1683 */ );
1684 1684 parse_sexp_ignore_comments = 0;
1685 words_include_escapes = 0; 1685
1686 DEFVAR_BOOL ("words-include-escapes", &words_include_escapes /* 1686 DEFVAR_BOOL ("words-include-escapes", &words_include_escapes /*
1687 Non-nil means `forward-word', etc., should treat escape chars part of words. 1687 Non-nil means `forward-word', etc., should treat escape chars part of words.
1688 */ ); 1688 */ );
1689 words_include_escapes = 0;
1689 1690
1690 no_quit_in_re_search = 0; 1691 no_quit_in_re_search = 0;
1691 } 1692 }
1692 1693
1693 static void 1694 static void