# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892559348 0
# Node ID 5811a3129878c09dc2e36aa8278da5c15cd9adb9
# Parent  be8599b6636a6bcf7607ee7f52e6e544fec47b19
(compile_pattern, compile_pattern_1): Fix mixing of
Lisp_Object and int.

diff -r be8599b6636a -r 5811a3129878 src/search.c
--- a/src/search.c	Tue Apr 14 13:05:38 1998 +0000
+++ b/src/search.c	Tue Apr 14 13:09:08 1998 +0000
@@ -166,7 +166,7 @@
     }
 
   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 @@
       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;