diff options
| author | Ted Zlatanov | 2017-08-18 22:07:36 -0400 |
|---|---|---|
| committer | Ted Zlatanov | 2017-08-18 22:07:40 -0400 |
| commit | fe87e356124494b8450d12f1c23f3fb08bbf7b06 (patch) | |
| tree | ccd5ad632bf9e18014c7545959771bde6a301ef9 | |
| parent | 94f3f13d6db0103267c514133109aebee6efb023 (diff) | |
| download | emacs-fe87e356124494b8450d12f1c23f3fb08bbf7b06.tar.gz emacs-fe87e356124494b8450d12f1c23f3fb08bbf7b06.zip | |
* lisp/files.el (make-temp-file): Fix directory use case.
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index af5d3ba53e1..a2b474f8d2b 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1419,7 +1419,8 @@ If SUFFIX is non-nil, add that at the end of the file name." | |||
| 1419 | (files--make-magic-temp-file absolute-prefix dir-flag suffix contents) | 1419 | (files--make-magic-temp-file absolute-prefix dir-flag suffix contents) |
| 1420 | (let ((file (make-temp-file-internal absolute-prefix | 1420 | (let ((file (make-temp-file-internal absolute-prefix |
| 1421 | (if dir-flag t) (or suffix "")))) | 1421 | (if dir-flag t) (or suffix "")))) |
| 1422 | (write-region contents nil file nil 'silent) | 1422 | (when (and (stringp text) (not dir-flag)) |
| 1423 | (write-region contents nil file nil 'silent)) | ||
| 1423 | file)))) | 1424 | file)))) |
| 1424 | 1425 | ||
| 1425 | (defun files--make-magic-temp-file (absolute-prefix | 1426 | (defun files--make-magic-temp-file (absolute-prefix |