diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-06-04 00:56:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-06-04 00:56:08 +0000 |
| commit | 1fdebc75356b09251868bf90f726f14d6db77100 (patch) | |
| tree | b789482ff9a5a8d6b896c85e4d7e1c29380d813f | |
| parent | cfe28e0b2715d8ffd8c3a4732ec358402c86191b (diff) | |
| download | emacs-1fdebc75356b09251868bf90f726f14d6db77100.tar.gz | |
(casify_object): Fix bug on handling a character
arguement.
| -rw-r--r-- | src/casefiddle.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index 89d528bcabb..90d09b46ac4 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c @@ -48,9 +48,13 @@ casify_object (flag, obj) 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)) |