From 59fab36902353cae84f466a94b98875adc531a8f Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 14 Apr 1998 13:09:08 +0000 Subject: [PATCH] (compile_pattern, compile_pattern_1): Fix mixing of Lisp_Object and int. --- src/search.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.39.2