Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 859a2309aef8
children 85ec50267440
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
34 casify_object (struct buffer *buf, enum case_action flag, Lisp_Object obj) 34 casify_object (struct buffer *buf, enum case_action flag, Lisp_Object obj)
35 { 35 {
36 REGISTER Emchar c; 36 REGISTER Emchar c;
37 REGISTER Charcount i, len; 37 REGISTER Charcount i, len;
38 REGISTER int inword = flag == CASE_DOWN; 38 REGISTER int inword = flag == CASE_DOWN;
39 Lisp_Object syntax_table = buf->syntax_table; 39 struct Lisp_Char_Table *syntax_table =
40 XCHAR_TABLE (buf->mirror_syntax_table);
40 41
41 while (1) 42 while (1)
42 { 43 {
43 if (CHAR_OR_CHAR_INTP (obj)) 44 if (CHAR_OR_CHAR_INTP (obj))
44 { 45 {
139 /* This function can GC */ 140 /* This function can GC */
140 REGISTER Bufpos i; 141 REGISTER Bufpos i;
141 Bufpos start, end; 142 Bufpos start, end;
142 REGISTER Emchar c; 143 REGISTER Emchar c;
143 REGISTER int inword = flag == CASE_DOWN; 144 REGISTER int inword = flag == CASE_DOWN;
144 Lisp_Object syntax_table = buf->syntax_table; 145 struct Lisp_Char_Table *syntax_table =
146 XCHAR_TABLE (buf->mirror_syntax_table);
145 int mccount; 147 int mccount;
146 148
147 if (EQ (b, e)) 149 if (EQ (b, e))
148 /* Not modifying because nothing marked */ 150 /* Not modifying because nothing marked */
149 return; 151 return;