diff options
| author | Michael Albinus <[email protected]> | 2013-02-10 11:07:09 +0100 |
|---|---|---|
| committer | Michael Albinus <[email protected]> | 2013-02-10 11:07:09 +0100 |
| commit | e08e7d915475863b8f4aa535df09a1a677ae1bb0 (patch) | |
| tree | 624572112b67ad572af159856c5a2d4589a2eeb8 | |
| parent | c4af1efc91cb57cc7dbaa1ee21b2d4b85fd3f87b (diff) | |
* net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error,
if DIR exists and PARENTS is non-nil.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e1f0ee09a..580f9ea26b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-02-10 Michael Albinus <[email protected]> + + * net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error, + if DIR exists and PARENTS is non-nil. + 2013-02-09 Chong Yidong <[email protected]> * mail/emacsbug.el (report-emacs-bug): Change binding of diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index bf6afae45d..1d91038640 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4087,7 +4087,8 @@ directory, so that Emacs will know its current contents." (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) + (unless parents + (error "Cannot make directory %s: file already exists" dir)) (let ((parsed (ange-ftp-ftp-name dir))) (if parsed (let* ((host (nth 0 parsed)) |