[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/url ChangeLog url-handlers.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp/url ChangeLog url-handlers.el |
Date: |
Fri, 27 Mar 2009 15:58:17 +0000 |
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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/url ChangeLog url-handlers.el,
Stefan Monnier <=