# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1238169496 0
# Node ID 0430833547500c216e74812969170ba691939bbd
# Parent  c99f01a8c4b43bd4b970bfdc1786eefca911bc02
(url-file-handler): Save match data.

diff -r c99f01a8c4b4 -r 043083354750 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Fri Mar 27 14:54:15 2009 +0000
+++ b/lisp/url/ChangeLog	Fri Mar 27 15:58:16 2009 +0000
@@ -1,3 +1,7 @@
+2009-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* url-handlers.el (url-file-handler): Save match data.
+
 2009-02-21  Jason Rumney  <jasonr@gnu.org>
 
 	* url-expand.el (url-default-expander): Use concat to combine
diff -r c99f01a8c4b4 -r 043083354750 lisp/url/url-handlers.el
--- a/lisp/url/url-handlers.el	Fri Mar 27 14:54:15 2009 +0000
+++ b/lisp/url/url-handlers.el	Fri Mar 27 15:58:16 2009 +0000
@@ -132,7 +132,7 @@
 	(hooked nil))
     (if (and fn (fboundp fn))
 	(setq hooked t
-	      val (apply fn args))
+	      val (save-match-data (apply fn args)))
       (setq hooked nil
 	    val (url-run-real-handler operation args)))
     (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real")