# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 724173553 0
# Node ID 174817d23858e4782a4f7a54303e5721af909a6b
# Parent  401c99f91a6ce2ad3f42e691bb0fd81b0f40444a
	* ange-ftp.el (ange-ftp-unhandled-file-name-directory): New
	function.  Set ange-ftp's `unhandled-file-name-property' to its
	name.

diff -r 401c99f91a6c -r 174817d23858 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat Dec 12 14:44:09 1992 +0000
+++ b/lisp/ange-ftp.el	Sat Dec 12 15:19:13 1992 +0000
@@ -857,7 +857,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.11 $")
+(defconst ange-ftp-version "$Revision: 1.12 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3612,6 +3612,11 @@
 				       (format "Getting %s" fn1))
 	  tmp1))))
 
+;; Calculate default-unhandled-directory for a given ange-ftp buffer.
+(defun ange-ftp-unhandled-file-name-directory (filename)
+  (file-name-directory ange-ftp-tmp-name-template))
+
+
 ;; Need the following functions for making filenames of compressed
 ;; files, because some OS's (unlike UNIX) do not allow a filename to
 ;; have two extensions.
@@ -3763,6 +3768,8 @@
 (put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion)
 (put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory)
 (put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy)
+(put 'unhandled-file-name-directory 'ange-ftp
+     'ange-ftp-unhandled-file-name-directory)
 (put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)
 (put 'dired-uncache 'ange-ftp 'ange-ftp-dired-uncache)
 (put 'dired-compress-file 'ange-ftp 'ange-ftp-dired-compress-file)