/[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.40.2.3 by handa, Tue Aug 20 03:58:53 2002 UTC revision 1.40.2.4 by handa, Tue Sep 3 04:07:54 2002 UTC
# Line 55  casify_object (flag, obj) Line 55  casify_object (flag, obj)
55    
56            c1 = XFASTINT (obj) & ~flagbits;            c1 = XFASTINT (obj) & ~flagbits;
57            if (! multibyte)            if (! multibyte)
58              {              MAKE_CHAR_MULTIBYTE (c1);
               MAKE_CHAR_UNIBYTE (c1);  
             }  
59            c = DOWNCASE (c1);            c = DOWNCASE (c1);
60            if (inword || c == c1)            if (inword || c == c1)
61              {              {
62                if (! inword)                if (! inword)
63                  c = UPCASE1 (c1);                  c = UPCASE1 (c1);
64                if (! multibyte)                if (! multibyte)
65                  {                  MAKE_CHAR_UNIBYTE (c);
                   MAKE_CHAR_MULTIBYTE (c);  
                 }  
66                XSETFASTINT (obj, c | flags);                XSETFASTINT (obj, c | flags);
67              }              }
68            return obj;            return obj;

Legend:
Removed from v.1.40.2.3  
changed lines
  Added in v.1.40.2.4

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