From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 27 Mar 2009 15:58:16 +0000 (+0000)
Subject: (url-file-handler): Save match data.
X-Git-Tag: emacs-pretest-23.0.92~54
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d696b0d53f982b231b26124f180a92a0e7935c06;p=emacs.git

(url-file-handler): Save match data.
---

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a65ba63926c..49412482206 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index cf8f4fd4e3e..c06e841b2c8 100644
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -132,7 +132,7 @@ the arguments that would have been passed to OPERATION."
 	(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")