diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-03-27 15:58:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-03-27 15:58:16 +0000 |
| commit | d696b0d53f982b231b26124f180a92a0e7935c06 (patch) | |
| tree | 94fc87e7581c2f69c9d84c5f81fc143758dde0f5 /lisp/url | |
| parent | 1213465a82666afb5ddfb82c8413043e0d15dfd3 (diff) | |
| download | emacs-d696b0d53f982b231b26124f180a92a0e7935c06.tar.gz | |
(url-file-handler): Save match data.
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") |