From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Dec 1994 08:26:27 +0000 (+0000)
Subject: (compile_pattern): Call re_set_registers here.
X-Git-Tag: emacs-19.34~5714
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6639708c3dc9af310053ef9f587b963de9ec30dc;p=emacs.git

(compile_pattern): Call re_set_registers here.
And no need to BLOCK_INPUT for that.
(compile_pattern_1): Instead of here.
---

diff --git a/src/search.c b/src/search.c
index 0d5f5dcf158..7d89696e7c8 100644
--- a/src/search.c
+++ b/src/search.c
@@ -130,13 +130,6 @@ compile_pattern_1 (cp, pattern, translate, regp, posix)
     Fsignal (Qinvalid_regexp, Fcons (build_string (val), Qnil));
 
   cp->regexp = Fcopy_sequence (pattern);
-
-  /* Advise the searching functions about the space we have allocated
-     for register data.  */
-  BLOCK_INPUT;
-  if (regp)
-    re_set_registers (&cp->buf, regp, regp->num_regs, regp->start, regp->end);
-  UNBLOCK_INPUT;
 }
 
 /* Compile a regexp if necessary, but first check to see if there's one in
@@ -182,6 +175,11 @@ compile_pattern (pattern, regp, translate, posix)
   cp->next = searchbuf_head;
   searchbuf_head = cp;
 
+  /* Advise the searching functions about the space we have allocated
+     for register data.  */
+  if (regp)
+    re_set_registers (&cp->buf, regp, regp->num_regs, regp->start, regp->end);
+
   return &cp->buf;
 }