diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
commit | 52e8dfd960f9fa9c53f9ee06c33338d241cca2a3 (patch) | |
tree | e73c9450d93e194e2a566b8cc96f5afc02e54857 /src/casetab.c | |
parent | 35934fcb35d1aeedd805d1b027ce5b59f5a0c79d (diff) | |
download | emacs-52e8dfd960f9fa9c53f9ee06c33338d241cca2a3.tar.gz |
Fix bugs with inappropriate mixing of Lisp_Object with int.
Diffstat (limited to 'src/casetab.c')
-rw-r--r-- | src/casetab.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/casetab.c b/src/casetab.c index 29a237cb948..a933be69c7d 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -31,7 +31,8 @@ Lisp_Object Vascii_canon_table, Vascii_eqv_table; /* 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 @@ static void 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); |