Mercurial > emacs
changeset 21531:5811a3129878
(compile_pattern, compile_pattern_1): Fix mixing of
Lisp_Object and int.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 14 Apr 1998 13:09:08 +0000 |
| parents | be8599b6636a |
| children | fff5e42d7b2a |
| files | src/search.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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;