Commit 253c3c82 authored by Stefan Monnier's avatar Stefan Monnier

(Fchar_equal): Check they are valid characters.

parent f9f3238f
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>
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment