Mercurial > hg > xemacs-beta

comparison src/abbrev.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
205 /* Abbrev included some caps. Cap first initial of expansion */ 205 /* Abbrev included some caps. Cap first initial of expansion */
206 Bufpos pos = wordstart; 206 Bufpos pos = wordstart;
207 207
208 /* Find the initial. */ 208 /* Find the initial. */
209 while (pos < BUF_PT (buf) 209 while (pos < BUF_PT (buf)
210 && !WORD_SYNTAX_P (buf->syntax_table, BUF_FETCH_CHAR (buf, pos))) 210 && !WORD_SYNTAX_P (XCHAR_TABLE (buf->mirror_syntax_table),
211 BUF_FETCH_CHAR (buf, pos)))
211 pos++; 212 pos++;
212 213
213 /* Change just that. */ 214 /* Change just that. */
214 Fupcase_initials_region (make_int (pos), make_int (pos + 1), lbuf); 215 Fupcase_initials_region (make_int (pos), make_int (pos + 1), lbuf);
215 } 216 }