Mercurial > emacs
comparison src/abbrev.c @ 89051:98dcb14bf34c
(Fexpand_abbrev): Convert a unibyte character to
multibyte if necessary.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 03 Sep 2002 04:06:07 +0000 |
| parents | b09549c9663c |
| children | 2f877ed80fa6 |
comparison
equal
deleted
inserted
replaced
| 89050:c00be25be9ad | 89051:98dcb14bf34c |
|---|---|
| 293 { | 293 { |
| 294 register int c; | 294 register int c; |
| 295 | 295 |
| 296 FETCH_CHAR_ADVANCE (c, idx, idx_byte); | 296 FETCH_CHAR_ADVANCE (c, idx, idx_byte); |
| 297 if (! multibyte) | 297 if (! multibyte) |
| 298 { | 298 MAKE_CHAR_MULTIBYTE (c); |
| 299 MAKE_CHAR_MULTIBYTE (c); | |
| 300 } | |
| 301 | 299 |
| 302 if (UPPERCASEP (c)) | 300 if (UPPERCASEP (c)) |
| 303 c = DOWNCASE (c), uccount++; | 301 c = DOWNCASE (c), uccount++; |
| 304 else if (! NOCASEP (c)) | 302 else if (! NOCASEP (c)) |
| 305 lccount++; | 303 lccount++; |
| 382 /* Abbrev included some caps. Cap first initial of expansion */ | 380 /* Abbrev included some caps. Cap first initial of expansion */ |
| 383 int pos = wordstart_byte; | 381 int pos = wordstart_byte; |
| 384 | 382 |
| 385 /* Find the initial. */ | 383 /* Find the initial. */ |
| 386 while (pos < PT_BYTE | 384 while (pos < PT_BYTE |
| 387 && SYNTAX (*BUF_BYTE_ADDRESS (current_buffer, pos)) != Sword) | 385 && SYNTAX (FETCH_CHAR_AS_MULTIBYTE (pos)) != Sword) |
| 388 pos++; | 386 pos++; |
| 389 | 387 |
| 390 /* Change just that. */ | 388 /* Change just that. */ |
| 391 pos = BYTE_TO_CHAR (pos); | 389 pos = BYTE_TO_CHAR (pos); |
| 392 Fupcase_initials_region (make_number (pos), make_number (pos + 1)); | 390 Fupcase_initials_region (make_number (pos), make_number (pos + 1)); |