# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837302769 0
# Node ID 9531c03134b67b2cfff54b896d8f9f7579d46ea0
# Parent  2bf083a9ad6a7b6dd4f9ee7ec26601f94806ff26
(Fmatch_data): If no matching done yet, return Qnil.

diff -r 2bf083a9ad6a -r 9531c03134b6 src/search.c
--- a/src/search.c	Sun Jul 14 00:03:45 1996 +0000
+++ b/src/search.c	Sun Jul 14 00:06:09 1996 +0000
@@ -1839,7 +1839,7 @@
   int i, len;
 
   if (NILP (last_thing_searched))
-    error ("match-data called before any match found");
+    return Qnil;
 
   data = (Lisp_Object *) alloca ((2 * search_regs.num_regs)
 				 * sizeof (Lisp_Object));