From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Apr 2002 22:29:38 +0000 (+0000)
Subject: (make-temp-file): New arg SUFFIX.
X-Git-Tag: ttn-vms-21-2-B4~15335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10cf1ba83a1cbbb8642d552fe2bca14513992ea3;p=emacs.git

(make-temp-file): New arg SUFFIX.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 6b9820f3e42..12c8272782c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1843,20 +1843,24 @@ Return the modified alist."
       (setq tail (cdr tail)))
     alist))
 
-(defun make-temp-file (prefix &optional dir-flag)
+(defun make-temp-file (prefix &optional dir-flag suffix)
   "Create a temporary file.
 The returned file name (created by appending some random characters at the end
 of PREFIX, and expanding against `temporary-file-directory' if necessary,
 is guaranteed to point to a newly created empty file.
 You can then use `write-region' to write new data into the file.
 
-If DIR-FLAG is non-nil, create a new empty directory instead of a file."
+If DIR-FLAG is non-nil, create a new empty directory instead of a file.
+
+If SUFFIX is non-nil, add that at the end of the file name."
   (let (file)
     (while (condition-case ()
 	       (progn
 		 (setq file
 		       (make-temp-name
 			(expand-file-name prefix temporary-file-directory)))
+		 (if suffix
+		     (setq file (concat file suffix)))
 		 (if dir-flag
 		     (make-directory file)
 		   (write-region "" nil file nil 'silent nil 'excl))