Mercurial > emacs
comparison src/casefiddle.c @ 18136:015e9e4a90ed
(casify_object): Fix bug on handling a character
arguement.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 04 Jun 1997 00:56:08 +0000 |
parents | ad95aa134d60 |
children | 614b916ff5bf |
comparison
equal
deleted
inserted
replaced
18135:000b0a8baf1a | 18136:015e9e4a90ed |
---|---|
46 while (1) | 46 while (1) |
47 { | 47 { |
48 if (INTEGERP (obj)) | 48 if (INTEGERP (obj)) |
49 { | 49 { |
50 c = DOWNCASE (obj); | 50 c = DOWNCASE (obj); |
51 if (!inword && c == XFASTINT (obj)) | 51 if (inword) |
52 c = UPCASE1 (obj); | 52 XSETFASTINT (obj, c); |
53 XSETFASTINT (obj, c); | 53 else if (c == XFASTINT (obj)) |
54 { | |
55 c = UPCASE1 (obj); | |
56 XSETFASTINT (obj, c); | |
57 } | |
54 return obj; | 58 return obj; |
55 } | 59 } |
56 if (STRINGP (obj)) | 60 if (STRINGP (obj)) |
57 { | 61 { |
58 int multibyte = !NILP (current_buffer->enable_multibyte_characters); | 62 int multibyte = !NILP (current_buffer->enable_multibyte_characters); |