(Fchar_equal): Check they are valid characters.

253c3c82 · Stefan Monnier · f9f3238f · 253c3c82 · 253c3c82
Commit 253c3c82 authored Mar 17, 2008 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/ChangeLog src/ChangeLog +2 -0

src/editfns.c src/editfns.c +4 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
 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>

--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4185,8 +4185,10 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.  */)
     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;