# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1205785386 0
# Node ID a2c4bffe2b5909313bb4adc3db867ccb84455833
# Parent  cbb561d8b117527f687f84a2a1bde95291ce94f0
(Fchar_equal): Check they are valid characters.

diff -r cbb561d8b117 -r a2c4bffe2b59 src/ChangeLog
--- a/src/ChangeLog	Mon Mar 17 20:21:12 2008 +0000
+++ b/src/ChangeLog	Mon Mar 17 20:23:06 2008 +0000
@@ -1,5 +1,7 @@
 2008-03-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* editfns.c (Fchar_equal): Check they are valid characters.
+
 	* buffer.h (Fbuffer_list): Declare (for use in callint.c).
 
 2008-03-17  Andreas Schwab  <schwab@suse.de>
diff -r cbb561d8b117 -r a2c4bffe2b59 src/editfns.c
--- a/src/editfns.c	Mon Mar 17 20:21:12 2008 +0000
+++ b/src/editfns.c	Mon Mar 17 20:23:06 2008 +0000
@@ -4185,8 +4185,10 @@
      register Lisp_Object c1, c2;
 {
   int i1, i2;
-  CHECK_NUMBER (c1);
-  CHECK_NUMBER (c2);
+  /* Check they're chars, not just integers, otherwise we could get array
+     bounds violations in DOWNCASE.  */
+  CHECK_CHARACTER (c1);
+  CHECK_CHARACTER (c2);
 
   if (XINT (c1) == XINT (c2))
     return Qt;