[Emacs-diffs] emacs/lisp/url ChangeLog url-handlers.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/03/27 15:58:17

Modified files:
        lisp/url       : ChangeLog url-handlers.el 

Log message:
        (url-file-handler): Save match data.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/url/ChangeLog?cvsroot=emacs&r1=1.178&r2=1.179
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/url/url-handlers.el?cvsroot=emacs&r1=1.31&r2=1.32

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/ChangeLog,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -b -r1.178 -r1.179
--- ChangeLog   23 Feb 2009 11:50:08 -0000      1.178
+++ ChangeLog   27 Mar 2009 15:58:16 -0000      1.179
@@ -1,3 +1,7 @@
+2009-03-27  Stefan Monnier  <address@hidden>
+
+       * url-handlers.el (url-file-handler): Save match data.
+
 2009-02-21  Jason Rumney  <address@hidden>
 
        * url-expand.el (url-default-expander): Use concat to combine

Index: url-handlers.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-handlers.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- url-handlers.el     5 Jan 2009 03:24:18 -0000       1.31
+++ url-handlers.el     27 Mar 2009 15:58:16 -0000      1.32
@@ -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")