Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table); 50 struct Lisp_Char_Table *syntax_table =
51 XCHAR_TABLE (buf->mirror_syntax_table);
51 Bufbyte *storage = 52 Bufbyte *storage =
52 alloca_array (Bufbyte, XSTRING_LENGTH (obj) * MAX_EMCHAR_LEN); 53 alloca_array (Bufbyte, XSTRING_LENGTH (obj) * MAX_EMCHAR_LEN);
53 Bufbyte *newp = storage; 54 Bufbyte *newp = storage;
54 Bufbyte *oldp = XSTRING_DATA (obj); 55 Bufbyte *oldp = XSTRING_DATA (obj);
55 int wordp = 0, wordp_prev; 56 int wordp = 0, wordp_prev;
153 struct buffer *buf) 154 struct buffer *buf)
154 { 155 {
155 /* This function can GC */ 156 /* This function can GC */
156 REGISTER Bufpos i; 157 REGISTER Bufpos i;
157 Bufpos start, end; 158 Bufpos start, end;
158 Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table); 159 struct Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
159 int mccount; 160 int mccount;
160 Emchar oldc, c; 161 Emchar oldc, c;
161 int wordp = 0, wordp_prev; 162 int wordp = 0, wordp_prev;
162 163
163 if (EQ (b, e)) 164 if (EQ (b, e))