diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-09-19 01:47:39 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-09-19 01:48:04 -0700 |
| commit | 1a01423b3c75bf08c255b3bd39f44d91e509a318 (patch) | |
| tree | b8b05a72f605ae698a2ad78a9ea8ca00b17c1f26 /lisp | |
| parent | 066efb86660542238854a400c3c20b5cb526a3cd (diff) | |
| download | emacs-1a01423b3c75bf08c255b3bd39f44d91e509a318.tar.gz emacs-1a01423b3c75bf08c255b3bd39f44d91e509a318.tar.bz2 emacs-1a01423b3c75bf08c255b3bd39f44d91e509a318.zip | |
Fix bug with make-directory on MS-Windows root
* lisp/files.el (files--ensure-directory): Treat any error, not
just file-already-exists, as an opportunity to check whether DIR
is already a directory (Bug#28508).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index ff0ab706338..0c30d40c13b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -5337,7 +5337,7 @@ instance of such commands." "Make directory DIR if it is not already a directory. Return nil." (condition-case err (make-directory-internal dir) - (file-already-exists + (error (unless (file-directory-p dir) (signal (car err) (cdr err)))))) |