Mercurial > emacs

diff src/editfns.c @ 93038:a2c4bffe2b59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fchar_equal): Check they are valid characters.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Mar 2008 20:23:06 +0000
parents f0f1c359cd43
children f7d6d03d8ceb
line wrap: on
line diff
--- 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;