# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 739712384 0
# Node ID 2250b4880589ebbeb0df3135eff7a45ac807d2fe
# Parent  b0c94b723e6ae6d1c57fde7e06803c1c2a054f4f
	* ange-ftp.el (ange-ftp-make-directory): Take second optional
	argument parents, like the original.  Implement it.

diff -r b0c94b723e6a -r 2250b4880589 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Jun 10 10:40:16 1993 +0000
+++ b/lisp/ange-ftp.el	Thu Jun 10 11:39:44 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.24 $")
+(defconst ange-ftp-version "$Revision: 1.25 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3546,8 +3546,12 @@
 	(ange-ftp-del-hash-entry dir ange-ftp-files-hashtable)
 	(ange-ftp-get-files dir t))))
 
-(defun ange-ftp-make-directory (dir)
+(defun ange-ftp-make-directory (dir &optional parents)
   (interactive (list (expand-file-name (read-file-name "Make directory: "))))
+  (if parents
+      (let ((parent (file-name-directory (directory-file-name dir))))
+	(or (file-exists-p parent)
+	    (ange-ftp-make-directory parent parents))))
   (if (file-exists-p dir)
       (error "Cannot make directory %s: file already exists" dir)
     (let ((parsed (ange-ftp-ftp-name dir)))