Commit 59fab369 authored by Andreas Schwab's avatar Andreas Schwab

(compile_pattern, compile_pattern_1): Fix mixing of

Lisp_Object and int.
parent e6d6dff2
......@@ -166,7 +166,7 @@ compile_pattern_1 (cp, pattern, translate, regp, posix, multibyte)
}
cp->regexp = Qnil;
cp->buf.translate = (! NILP (translate) ? translate : 0);
cp->buf.translate = (! NILP (translate) ? translate : make_number (0));
cp->posix = posix;
cp->buf.multibyte = multibyte;
BLOCK_INPUT;
......@@ -206,7 +206,7 @@ compile_pattern (pattern, regp, translate, posix, multibyte)
cp = *cpp;
if (XSTRING (cp->regexp)->size == XSTRING (pattern)->size
&& !NILP (Fstring_equal (cp->regexp, pattern))
&& cp->buf.translate == (! NILP (translate) ? translate : 0)
&& EQ (cp->buf.translate, (! NILP (translate) ? translate : make_number (0)))
&& cp->posix == posix
&& cp->buf.multibyte == multibyte)
break;
......
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