Mercurial > hg > xemacs-beta

comparison src/search.c @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
699 { 699 {
700 return scan_buffer (buf, '\n', from, 0, count, 0, 1); 700 return scan_buffer (buf, '\n', from, 0, count, 0, 1);
701 } 701 }
702 702
703 Bytind 703 Bytind
704 bi_find_next_emchar_in_string (struct Lisp_String* str, Emchar target, Bytind st, 704 bi_find_next_emchar_in_string (Lisp_String* str, Emchar target, Bytind st,
705 EMACS_INT count) 705 EMACS_INT count)
706 { 706 {
707 /* This function has been Mule-ized. */ 707 /* This function has been Mule-ized. */
708 Bytind lim = string_length (str) -1; 708 Bytind lim = string_length (str) -1;
709 Bufbyte* s = string_data (str); 709 Bufbyte* s = string_data (str);
769 /* We store the first 256 chars in an array here and the rest in 769 /* We store the first 256 chars in an array here and the rest in
770 a range table. */ 770 a range table. */
771 unsigned char fastmap[0400]; 771 unsigned char fastmap[0400];
772 int negate = 0; 772 int negate = 0;
773 REGISTER int i; 773 REGISTER int i;
774 struct Lisp_Char_Table *syntax_table = 774 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
775 XCHAR_TABLE (buf->mirror_syntax_table);
776 Bufpos limit; 775 Bufpos limit;
777 776
778 if (NILP (lim)) 777 if (NILP (lim))
779 limit = forwardp ? BUF_ZV (buf) : BUF_BEGV (buf); 778 limit = forwardp ? BUF_ZV (buf) : BUF_BEGV (buf);
780 else 779 else
1582 wordify (Lisp_Object buffer, Lisp_Object string) 1581 wordify (Lisp_Object buffer, Lisp_Object string)
1583 { 1582 {
1584 Charcount i, len; 1583 Charcount i, len;
1585 EMACS_INT punct_count = 0, word_count = 0; 1584 EMACS_INT punct_count = 0, word_count = 0;
1586 struct buffer *buf = decode_buffer (buffer, 0); 1585 struct buffer *buf = decode_buffer (buffer, 0);
1587 struct Lisp_Char_Table *syntax_table = 1586 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
1588 XCHAR_TABLE (buf->mirror_syntax_table);
1589 1587
1590 CHECK_STRING (string); 1588 CHECK_STRING (string);
1591 len = XSTRING_CHAR_LENGTH (string); 1589 len = XSTRING_CHAR_LENGTH (string);
1592 1590
1593 for (i = 0; i < len; i++) 1591 for (i = 0; i < len; i++)
1843 int some_uppercase; 1841 int some_uppercase;
1844 int some_nonuppercase_initial; 1842 int some_nonuppercase_initial;
1845 Emchar c, prevc; 1843 Emchar c, prevc;
1846 Charcount inslen; 1844 Charcount inslen;
1847 struct buffer *buf; 1845 struct buffer *buf;
1848 struct Lisp_Char_Table *syntax_table; 1846 Lisp_Char_Table *syntax_table;
1849 int mc_count; 1847 int mc_count;
1850 Lisp_Object buffer; 1848 Lisp_Object buffer;
1851 int_dynarr *ul_action_dynarr = 0; 1849 int_dynarr *ul_action_dynarr = 0;
1852 int_dynarr *ul_pos_dynarr = 0; 1850 int_dynarr *ul_pos_dynarr = 0;
1853 int speccount; 1851 int speccount;