# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787134387 0
# Node ID afe81fd385ebeddc25c6bb533c3f85cab2f24954
# Parent  842f6dc76fc6adf400551b113bf7911fde12fe73
(compile_pattern): Call re_set_registers here.
And no need to BLOCK_INPUT for that.
(compile_pattern_1): Instead of here.

diff -r 842f6dc76fc6 -r afe81fd385eb src/search.c
--- a/src/search.c	Sat Dec 10 09:15:58 1994 +0000
+++ b/src/search.c	Sun Dec 11 08:26:27 1994 +0000
@@ -130,13 +130,6 @@
     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 @@
   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;
 }