Mercurial > emacs

comparison src/casefiddle.c @ 18136:015e9e4a90ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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);