(make-temp-file): Handle empty `prefix'. (Bug#1081)

f8dce815 · Glenn Morris · a80a6b03 · f8dce815 · f8dce815
Commit f8dce815 authored Oct 04, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/files.el lisp/files.el +5 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 2008-10-04  Glenn Morris  <rgm@gnu.org>
  
+	* files.el (make-temp-file): Handle empty `prefix'.  (Bug#1081)
+
 	* vc-svn.el (vc-svn-after-dir-status): Handle `svn status -u' output.
 	(vc-svn-dir-status): Respect vc-stay-local-p.  (Bug#1046)
  

--- a/lisp/files.el
+++ b/lisp/files.el
@@ -976,7 +976,11 @@ If SUFFIX is non-nil, add that at the end of the file name."
 		     (progn
 		       (setq file
 			     (make-temp-name
-			      (expand-file-name prefix temporary-file-directory)))
+                              (if (zerop (length prefix))
+                                  (file-name-as-directory
+                                   temporary-file-directory)
+                                (expand-file-name prefix
+                                                  temporary-file-directory))))
 		       (if suffix
 			   (setq file (concat file suffix)))
 		       (if dir-flag