Mercurial > emacs
comparison lisp/url/url-handlers.el @ 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 | a9dc0e7c3f2b |
| children | 5b946f854966 |
comparison
equal
deleted
inserted
replaced
| 102742:c99f01a8c4b4 | 102743:043083354750 |
|---|---|
| 130 (intern-soft (format "url-%s" operation)))) | 130 (intern-soft (format "url-%s" operation)))) |
| 131 (val nil) | 131 (val nil) |
| 132 (hooked nil)) | 132 (hooked nil)) |
| 133 (if (and fn (fboundp fn)) | 133 (if (and fn (fboundp fn)) |
| 134 (setq hooked t | 134 (setq hooked t |
| 135 val (apply fn args)) | 135 val (save-match-data (apply fn args))) |
| 136 (setq hooked nil | 136 (setq hooked nil |
| 137 val (url-run-real-handler operation args))) | 137 val (url-run-real-handler operation args))) |
| 138 (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real") | 138 (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real") |
| 139 operation args val) | 139 operation args val) |
| 140 val)) | 140 val)) |