Commit 1b5d98bb authored by Richard M. Stallman's avatar Richard M. Stallman

(Fchar_equal): Fix case-conversion code.

parent 97d26a97
......@@ -2424,14 +2424,21 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.")
(c1, c2)
register Lisp_Object c1, c2;
{
int i1, i2;
CHECK_NUMBER (c1, 0);
CHECK_NUMBER (c2, 1);
if (XINT (c1) == XINT (c2)
&& (NILP (current_buffer->case_fold_search)
|| DOWNCASE (XFASTINT (c1)) == DOWNCASE (XFASTINT (c2))))
if (XINT (c1) == XINT (c2))
return Qt;
return Qnil;
if (NILP (current_buffer->case_fold_search))
return Qnil;
/* Do these in separate statements,
then compare the variables.
because of the way DOWNCASE uses temp variables. */
i1 = DOWNCASE (XFASTINT (c1));
i2 = DOWNCASE (XFASTINT (c2));
return (i1 == i2 ? Qt : Qnil);
}
/* Transpose the markers in two regions of the current buffer, and
......
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