Commit be46733f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fchar_equal): Handle char-table as case table.

parent b1428bd8
...@@ -1953,12 +1953,13 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.") ...@@ -1953,12 +1953,13 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.")
(c1, c2) (c1, c2)
register Lisp_Object c1, c2; register Lisp_Object c1, c2;
{ {
unsigned char *downcase = DOWNCASE_TABLE; Lisp_Object *downcase = DOWNCASE_TABLE;
CHECK_NUMBER (c1, 0); CHECK_NUMBER (c1, 0);
CHECK_NUMBER (c2, 1); CHECK_NUMBER (c2, 1);
if (!NILP (current_buffer->case_fold_search) if (!NILP (current_buffer->case_fold_search)
? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)] ? ((XINT (downcase[0xff & XFASTINT (c1)])
== XINT (downcase[0xff & XFASTINT (c2)]))
&& (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff)) && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff))
: XINT (c1) == XINT (c2)) : XINT (c1) == XINT (c2))
return Qt; 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