diff options
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/url/url-handlers.el | 2 |
2 files changed, 5 insertions, 1 deletions
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") |