Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
45 return make_char (c); 45 return make_char (c);
46 } 46 }
47 47
48 if (STRINGP (obj)) 48 if (STRINGP (obj))
49 { 49 {
50 struct Lisp_Char_Table *syntax_table = 50 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
51 XCHAR_TABLE (buf->mirror_syntax_table);
52 Bufbyte *storage = 51 Bufbyte *storage =
53 alloca_array (Bufbyte, XSTRING_LENGTH (obj) * MAX_EMCHAR_LEN); 52 alloca_array (Bufbyte, XSTRING_LENGTH (obj) * MAX_EMCHAR_LEN);
54 Bufbyte *newp = storage; 53 Bufbyte *newp = storage;
55 Bufbyte *oldp = XSTRING_DATA (obj); 54 Bufbyte *oldp = XSTRING_DATA (obj);
56 int wordp = 0, wordp_prev; 55 int wordp = 0, wordp_prev;
154 struct buffer *buf) 153 struct buffer *buf)
155 { 154 {
156 /* This function can GC */ 155 /* This function can GC */
157 REGISTER Bufpos i; 156 REGISTER Bufpos i;
158 Bufpos start, end; 157 Bufpos start, end;
159 struct Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table); 158 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
160 int mccount; 159 int mccount;
161 Emchar oldc, c; 160 Emchar oldc, c;
162 int wordp = 0, wordp_prev; 161 int wordp = 0, wordp_prev;
163 162
164 if (EQ (b, e)) 163 if (EQ (b, e))