# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1085264368 0
# Node ID 4f33fa4911837c2218d33745304280dbcf3a0cd2
# Parent  a5ccd5ee3c526e8b96a456c5274f5f0f381d0eee
(casify_object): Return OBJ unchanged if not real char.

diff -r a5ccd5ee3c52 -r 4f33fa491183 src/casefiddle.c
--- a/src/casefiddle.c	Sat May 22 22:18:30 2004 +0000
+++ b/src/casefiddle.c	Sat May 22 22:19:28 2004 +0000
@@ -52,6 +52,12 @@
 			  | 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);