diff options
| author | Michael Albinus | 2008-01-07 06:52:19 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-01-07 06:52:19 +0000 |
| commit | 80e4b01d334beaef3b481101e5af01962ce71c3b (patch) | |
| tree | 6b6e35c42af338e7558da130bfd856d84cdc56bf | |
| parent | 1030ad5e1122092073dc58bcd9d2125cc8cdf5cb (diff) | |
| download | emacs-80e4b01d334beaef3b481101e5af01962ce71c3b.tar.gz emacs-80e4b01d334beaef3b481101e5af01962ce71c3b.zip | |
* url-handlers.el (url-file-handler): Autoload.
| -rw-r--r-- | lisp/url/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/url/url-handlers.el | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 93c88b69a0c..24fe44214b6 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2008-01-07 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * url-handlers.el (url-file-handler): Autoload. | ||
| 4 | |||
| 1 | 2007-12-11 Glenn Morris <rgm@gnu.org> | 5 | 2007-12-11 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * url-util.el (url-make-private-file): New function. | 7 | * url-util.el (url-make-private-file): New function. |
| @@ -916,7 +920,7 @@ | |||
| 916 | * texi/url.txi: Start making it vaguely useful. | 920 | * texi/url.txi: Start making it vaguely useful. |
| 917 | 921 | ||
| 918 | * texi/Makefile.in (install): Cope with Debian install-info. | 922 | * texi/Makefile.in (install): Cope with Debian install-info. |
| 919 | From Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann). | 923 | From Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann). |
| 920 | 924 | ||
| 921 | 2002-04-22 Dave Love <fx@gnu.org> | 925 | 2002-04-22 Dave Love <fx@gnu.org> |
| 922 | 926 | ||
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index 7edb4785091..8dd9792f467 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el | |||
| @@ -125,6 +125,7 @@ particularly bad at this\).") | |||
| 125 | (inhibit-file-name-operation operation)) | 125 | (inhibit-file-name-operation operation)) |
| 126 | (apply operation args))) | 126 | (apply operation args))) |
| 127 | 127 | ||
| 128 | ;;;###autoload | ||
| 128 | (defun url-file-handler (operation &rest args) | 129 | (defun url-file-handler (operation &rest args) |
| 129 | "Function called from the `file-name-handler-alist' routines. | 130 | "Function called from the `file-name-handler-alist' routines. |
| 130 | OPERATION is what needs to be done (`file-exists-p', etc). ARGS are | 131 | OPERATION is what needs to be done (`file-exists-p', etc). ARGS are |