(unhandled-file-name-directory): Add handler.

(url-handler-unhandled-file-name-directory): New fun.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 040a6a46d81f3fac626e034da1490c2ab1bd286e..723fb986b0d8b4924636df741ebd714c15cc8236 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-handlers.el (unhandled-file-name-directory): Add handler.
+       (url-handler-unhandled-file-name-directory): New fun.
+
 2008-01-07  Michael Albinus  <michael.albinus@gmx.de>
 
        * url-handlers.el (url-file-handler): Autoload.

diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index 8dd9792f4674c8513e4ff389d48187b9384d6a34..92658051df4c5846276c7c6ddc22f94e968f0024 100644 (file)
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -153,6 +153,7 @@ the arguments that would have been passed to OPERATION."
 (put 'file-name-absolute-p 'url-file-handlers (lambda (&rest ignored) t))
 (put 'expand-file-name 'url-file-handlers 'url-handler-expand-file-name)
 (put 'directory-file-name 'url-file-handlers 'url-handler-directory-file-name)
+(put 'unhandled-file-name-directory 'url-file-handlers 'url-handler-unhandled-file-name-directory)
 ;; (put 'file-name-as-directory 'url-file-handlers 'url-handler-file-name-as-directory)
 
 ;; These are operations that we do not support yet (DAV!!!)
@@ -184,6 +185,13 @@ the arguments that would have been passed to OPERATION."
   (if (string-match "//\\'" dir) dir
     (url-run-real-handler 'directory-file-name (list dir))))
 
+(defun url-handler-unhandled-file-name-directory (filename)
+  ;; Copied from tramp.el.  This is used as the cwd for subprocesses:
+  ;; without it running call-process or start-process in a URL directory
+  ;; signals an error.
+  ;; FIXME: we can do better if `filename' is a "file://" URL.
+  (expand-file-name "~/"))
+
 ;; The actual implementation
 ;;;###autoload
 (defun url-copy-file (url newname &optional ok-if-already-exists keep-time)