# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1088624074 0
# Node ID aaa6a4ecea38c16045616386ebe43553fda5688b
# Parent  f27d5d17fde525d3479fcfa1522f7d44758ef5c6
(match_limit, Fmatch_data, Fset_match_data): YAILOM.

diff -r f27d5d17fde5 -r aaa6a4ecea38 src/search.c
--- a/src/search.c	Wed Jun 30 19:34:15 2004 +0000
+++ b/src/search.c	Wed Jun 30 19:34:34 2004 +0000
@@ -1,5 +1,6 @@
 /* String search routines for GNU Emacs.
-   Copyright (C) 1985, 86,87,93,94,97,98, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86,87,93,94,97,98, 1999, 2004
+             Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2628,7 +2629,7 @@
   CHECK_NUMBER (num);
   n = XINT (num);
   if (n < 0)
-    args_out_of_range (num, 0);
+    args_out_of_range (num, make_number (0));
   if (search_regs.num_regs <= 0)
     error ("No match data, because no search succeeded");
   if (n >= search_regs.num_regs
@@ -2728,10 +2729,9 @@
 	data[2 * i] = data [2 * i + 1] = Qnil;
     }
 
-  if (BUFFERP(last_thing_searched)
-      && ! NILP (integers))
+  if (BUFFERP (last_thing_searched) && !NILP (integers))
     {
-      XSETBUFFER(data[len], last_thing_searched);
+      data[len] = last_thing_searched;
       len++;
     }
 
@@ -2811,9 +2811,9 @@
     for (i = 0;; i++)
       {
 	marker = Fcar (list);
-	if (BUFFERP(marker))
+	if (BUFFERP (marker))
 	  {
-	    XSETBUFFER(last_thing_searched, marker);
+	    last_thing_searched = marker;
 	    break;
 	  }
 	if (i >= length)