Mercurial > emacs

diff src/casefiddle.c @ 18136:015e9e4a90ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(casify_object): Fix bug on handling a character arguement.
author Kenichi Handa <handa@m17n.org>
date Wed, 04 Jun 1997 00:56:08 +0000
parents ad95aa134d60
children 614b916ff5bf
line wrap: on
line diff
--- a/src/casefiddle.c	Tue Jun 03 08:17:35 1997 +0000
+++ b/src/casefiddle.c	Wed Jun 04 00:56:08 1997 +0000
@@ -48,9 +48,13 @@
       if (INTEGERP (obj))
 	{
 	  c = DOWNCASE (obj);
-	  if (!inword && c == XFASTINT (obj))
-	    c = UPCASE1 (obj);
-	  XSETFASTINT (obj, c);
+	  if (inword)
+	    XSETFASTINT (obj, c);
+	  else if (c == XFASTINT (obj))
+	    {
+	      c = UPCASE1 (obj);
+	      XSETFASTINT (obj, c);
+	    }
 	  return obj;
 	}
       if (STRINGP (obj))