Mercurial > emacs

diff lisp/url/url-handlers.el @ 102743:043083354750

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-file-handler): Save match data.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 27 Mar 2009 15:58:16 +0000
parents a9dc0e7c3f2b
children 5b946f854966
line wrap: on
line diff
--- 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")