/[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.4.2 by miles, Tue Oct 14 23:16:39 2003 UTC revision 1.40.4.3 by miles, Tue Jul 6 09:23:53 2004 UTC
# Line 52  casify_object (flag, obj) Line 52  casify_object (flag, obj)
52                            | CHAR_SHIFT | CHAR_CTL | CHAR_META);                            | CHAR_SHIFT | CHAR_CTL | CHAR_META);
53            int flags = XINT (obj) & flagbits;            int flags = XINT (obj) & flagbits;
54    
55              /* If the character has higher bits set
56                 above the flags, return it unchanged.
57                 It is not a real character.  */
58              if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
59                return obj;
60    
61            c = DOWNCASE (XFASTINT (obj) & ~flagbits);            c = DOWNCASE (XFASTINT (obj) & ~flagbits);
62            if (inword)            if (inword)
63              XSETFASTINT (obj, c | flags);              XSETFASTINT (obj, c | flags);

Legend:
Removed from v.1.40.4.2  
changed lines
  Added in v.1.40.4.3

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