/[emacs]/emacs/src/casefiddle.c
ViewVC logotype

Diff of /emacs/src/casefiddle.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53 by ttn, Sun Aug 7 12:33:16 2005 UTC revision 1.54 by handa, Fri Oct 14 07:51:51 2005 UTC
# Line 92  casify_object (flag, obj) Line 92  casify_object (flag, obj)
92                else if (!UPPERCASEP (c)                else if (!UPPERCASEP (c)
93                         && (!inword || flag != CASE_CAPITALIZE_UP))                         && (!inword || flag != CASE_CAPITALIZE_UP))
94                  c = UPCASE1 (c);                  c = UPCASE1 (c);
95                if (ASCII_BYTE_P (c) || (! multibyte && SINGLE_BYTE_CHAR_P (c)))                if ((ASCII_BYTE_P (c) && from_len == 1)
96                      || (! multibyte && SINGLE_BYTE_CHAR_P (c)))
97                  SSET (obj, i, c);                  SSET (obj, i, c);
98                else                else
99                  {                  {
# Line 100  casify_object (flag, obj) Line 101  casify_object (flag, obj)
101                    if (from_len == to_len)                    if (from_len == to_len)
102                      CHAR_STRING (c, SDATA (obj) + i);                      CHAR_STRING (c, SDATA (obj) + i);
103                    else                    else
104                      Faset (obj, make_number (n), make_number (c));                      {
105                          Faset (obj, make_number (n), make_number (c));
106                          len += to_len - from_len;
107                        }
108                  }                  }
109                if ((int) flag >= (int) CASE_CAPITALIZE)                if ((int) flag >= (int) CASE_CAPITALIZE)
110                  inword = SYNTAX (c) == Sword;                  inword = SYNTAX (c) == Sword;

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26