mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error,

Browse Source 
if DIR exists and PARENTS is non-nil.
This commit is contained in:
Michael Albinus 2013-02-10 11:07:09 +01:00
parent c4af1efc91
commit e08e7d9154
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-02-10 Michael Albinus <michael.albinus@gmx.de>
* 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 <cyd@gnu.org> 2013-02-09 Chong Yidong <cyd@gnu.org>
* mail/emacsbug.el (report-emacs-bug): Change binding of * mail/emacsbug.el (report-emacs-bug): Change binding of

3
lisp/net/ange-ftp.el
View File

@ -4087,7 +4087,8 @@ directory, so that Emacs will know its current contents."
(or (file-exists-p parent) (or (file-exists-p parent)
(ange-ftp-make-directory parent parents)))) (ange-ftp-make-directory parent parents))))
(if (file-exists-p dir) (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))) (let ((parsed (ange-ftp-ftp-name dir)))
(if parsed (if parsed
(let* ((host (nth 0 parsed)) (let* ((host (nth 0 parsed))