From: Andreas Schwab <schwab@suse.de>
Date: Tue, 14 Apr 1998 13:09:08 +0000 (+0000)
Subject: (compile_pattern, compile_pattern_1): Fix mixing of
X-Git-Tag: emacs-20.3~1544
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59fab36902353cae84f466a94b98875adc531a8f;p=emacs.git

(compile_pattern, compile_pattern_1): Fix mixing of
Lisp_Object and int.
---

diff --git a/src/search.c b/src/search.c
index 61d960ee867..90155806e24 100644
--- 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;