From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 14 Jul 1996 00:06:09 +0000 (+0000)
Subject: (Fmatch_data): If no matching done yet, return Qnil.
X-Git-Tag: emacs-19.34~195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c36bcf1b4a142fb5a1396ad0bb681a5349c8fe50;p=emacs.git

(Fmatch_data): If no matching done yet, return Qnil.
---

diff --git a/src/search.c b/src/search.c
index 85c15a0de47..53187c2c485 100644
--- a/src/search.c
+++ b/src/search.c
@@ -1839,7 +1839,7 @@ Use `store-match-data' to reinstate the data in this list.")
   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));