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

[Miles Bader]

Index: emacs/src/casefiddle.c
diff -c emacs/src/casefiddle.c:1.40.4.2 emacs/src/casefiddle.c:1.40.4.3
*** emacs/src/casefiddle.c:1.40.4.2     Tue Oct 14 23:16:39 2003
--- emacs/src/casefiddle.c      Tue Jul  6 09:23:53 2004
***************
*** 52,57 ****
--- 52,63 ----
                          | CHAR_SHIFT | CHAR_CTL | CHAR_META);
          int flags = XINT (obj) & flagbits;
  
+         /* If the character has higher bits set
+            above the flags, return it unchanged.
+            It is not a real character.  */
+         if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
+           return obj;
+ 
          c = DOWNCASE (XFASTINT (obj) & ~flagbits);
          if (inword)
            XSETFASTINT (obj, c | flags);