diff options
| author | Paul Eggert | 2017-09-19 01:47:39 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-09-19 01:48:04 -0700 |
| commit | 1a01423b3c75bf08c255b3bd39f44d91e509a318 (patch) | |
| tree | b8b05a72f605ae698a2ad78a9ea8ca00b17c1f26 | |
| parent | 066efb86660542238854a400c3c20b5cb526a3cd (diff) | |
| download | emacs-1a01423b3c75bf08c255b3bd39f44d91e509a318.tar.gz 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).
| -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." | |||
| 5337 | "Make directory DIR if it is not already a directory. Return nil." | 5337 | "Make directory DIR if it is not already a directory. Return nil." |
| 5338 | (condition-case err | 5338 | (condition-case err |
| 5339 | (make-directory-internal dir) | 5339 | (make-directory-internal dir) |
| 5340 | (file-already-exists | 5340 | (error |
| 5341 | (unless (file-directory-p dir) | 5341 | (unless (file-directory-p dir) |
| 5342 | (signal (car err) (cdr err)))))) | 5342 | (signal (car err) (cdr err)))))) |
| 5343 | 5343 | ||