[Emacs-diffs] Changes to emacs/src/casefiddle.c

[Kenichi Handa]

Index: emacs/src/casefiddle.c
diff -c emacs/src/casefiddle.c:1.53 emacs/src/casefiddle.c:1.54
*** emacs/src/casefiddle.c:1.53 Sun Aug  7 12:33:16 2005
--- emacs/src/casefiddle.c      Fri Oct 14 07:51:51 2005
***************
*** 92,98 ****
              else if (!UPPERCASEP (c)
                       && (!inword || flag != CASE_CAPITALIZE_UP))
                c = UPCASE1 (c);
!             if (ASCII_BYTE_P (c) || (! multibyte && SINGLE_BYTE_CHAR_P (c)))
                SSET (obj, i, c);
              else
                {
--- 92,99 ----
              else if (!UPPERCASEP (c)
                       && (!inword || flag != CASE_CAPITALIZE_UP))
                c = UPCASE1 (c);
!             if ((ASCII_BYTE_P (c) && from_len == 1)
!                 || (! multibyte && SINGLE_BYTE_CHAR_P (c)))
                SSET (obj, i, c);
              else
                {
***************
*** 100,106 ****
                  if (from_len == to_len)
                    CHAR_STRING (c, SDATA (obj) + i);
                  else
!                   Faset (obj, make_number (n), make_number (c));
                }
              if ((int) flag >= (int) CASE_CAPITALIZE)
                inword = SYNTAX (c) == Sword;
--- 101,110 ----
                  if (from_len == to_len)
                    CHAR_STRING (c, SDATA (obj) + i);
                  else
!                   {
!                     Faset (obj, make_number (n), make_number (c));
!                     len += to_len - from_len;
!                   }
                }
              if ((int) flag >= (int) CASE_CAPITALIZE)
                inword = SYNTAX (c) == Sword;