(compile_pattern, compile_pattern_1): Fix mixing of

Lisp_Object and int.

diff --git a/src/search.c b/src/search.c
index 61d960ee8671185f972683a0176ef749b982119d..90155806e243590c306fd4d645127488b65820e7 100644 (file)
--- a/src/search.c
+++ b/src/search.c
@@ -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;