Mercurial > emacs

diff src/casefiddle.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents 015e9e4a90ed
children 4dbda4b7c66f
line wrap: on
line diff
--- a/src/casefiddle.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/casefiddle.c	Fri Jul 04 20:44:52 1997 +0000
@@ -47,12 +47,12 @@
     {
       if (INTEGERP (obj))
 	{
-	  c = DOWNCASE (obj);
+	  c = DOWNCASE (XFASTINT (obj));
 	  if (inword)
 	    XSETFASTINT (obj, c);
 	  else if (c == XFASTINT (obj))
 	    {
-	      c = UPCASE1 (obj);
+	      c = UPCASE1 (XFASTINT (obj));
 	      XSETFASTINT (obj, c);
 	    }
 	  return obj;