Mercurial > emacs
diff src/casetab.c @ 18613:614b916ff5bf
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 | 40ce43a92060 |
children | fa9ff387d260 |
line wrap: on
line diff
--- a/src/casetab.c Fri Jul 04 20:43:49 1997 +0000 +++ b/src/casetab.c Fri Jul 04 20:44:52 1997 +0000 @@ -31,7 +31,8 @@ /* Used as a temporary in DOWNCASE and other macros in lisp.h. No need to mark it, since it is used only very temporarily. */ -Lisp_Object case_temp1, case_temp2; +int case_temp1; +Lisp_Object case_temp2; static void set_canon (); static void set_identity (); @@ -207,7 +208,7 @@ shuffle (table, c, elt) Lisp_Object table, c, elt; { - if (NATNUMP (elt) && c != elt) + if (NATNUMP (elt) && !EQ (c, elt)) { Lisp_Object tem = Faref (table, elt); Faset (table, elt, c);