[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fe87e35: * lisp/files.el (make-temp-file): Fix dire
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] master fe87e35: * lisp/files.el (make-temp-file): Fix directory use case. |
Date: |
Fri, 18 Aug 2017 22:08:06 -0400 (EDT) |
branch: master
commit fe87e356124494b8450d12f1c23f3fb08bbf7b06
Author: Ted Zlatanov <address@hidden>
Commit: Ted Zlatanov <address@hidden>
* lisp/files.el (make-temp-file): Fix directory use case.
---
lisp/files.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/files.el b/lisp/files.el
index af5d3ba..a2b474f 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."
(files--make-magic-temp-file absolute-prefix dir-flag suffix contents)
(let ((file (make-temp-file-internal absolute-prefix
(if dir-flag t) (or suffix ""))))
- (write-region contents nil file nil 'silent)
+ (when (and (stringp text) (not dir-flag))
+ (write-region contents nil file nil 'silent))
file))))
(defun files--make-magic-temp-file (absolute-prefix
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master fe87e35: * lisp/files.el (make-temp-file): Fix directory use case.,
Teodor Zlatanov <=