# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1015192679 0
# Node ID 5f02f10efd8add477f9612e96329886dfb8e789d
# Parent  d12db931f164df64f27c4854c5e85a359035eb60
(make-auto-save-file-name): Use make-temp-file.

diff -r d12db931f164 -r 5f02f10efd8a lisp/files.el
--- a/lisp/files.el	Sun Mar 03 21:55:33 2002 +0000
+++ b/lisp/files.el	Sun Mar 03 21:57:59 2002 +0000
@@ -3342,13 +3342,14 @@
 	  (setq buffer-name (replace-match replacement t t buffer-name))
 	  (setq limit (1+ (match-end 0)))))
       ;; Generate the file name.
-      (expand-file-name
-       (format "#%s#%s#" buffer-name (make-temp-name ""))
-       ;; Try a few alternative directories, to get one we can write it.
-       (cond
-	((file-writable-p default-directory) default-directory)
-	((file-writable-p "/var/tmp/") "/var/tmp/")
-	("~/"))))))
+      (make-temp-file
+       (expand-file-name
+	(format "#%s#" buffer-name)
+	;; Try a few alternative directories, to get one we can write it.
+	(cond
+	 ((file-writable-p default-directory) default-directory)
+	 ((file-writable-p "/var/tmp/") "/var/tmp/")
+	 ("~/")))))))
 
 (defun auto-save-file-name-p (filename)
   "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.