Mercurial > emacs
changeset 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 | 000b0a8baf1a |
| children | 985e47a14cab |
| files | src/casefiddle.c |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casefiddle.c Tue Jun 03 08:17:35 1997 +0000 +++ b/src/casefiddle.c Wed Jun 04 00:56:08 1997 +0000 @@ -48,9 +48,13 @@ if (INTEGERP (obj)) { c = DOWNCASE (obj); - if (!inword && c == XFASTINT (obj)) - c = UPCASE1 (obj); - XSETFASTINT (obj, c); + if (inword) + XSETFASTINT (obj, c); + else if (c == XFASTINT (obj)) + { + c = UPCASE1 (obj); + XSETFASTINT (obj, c); + } return obj; } if (STRINGP (obj))