Mercurial > emacs
changeset 102743:043083354750
(url-file-handler): Save match data.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 27 Mar 2009 15:58:16 +0000 |
| parents | c99f01a8c4b4 |
| children | d69c45eb83b1 |
| files | lisp/url/ChangeLog lisp/url/url-handlers.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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")