Mercurial > emacs
changeset 44945:27acb2b2a2a9
(make-temp-file): New arg SUFFIX.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Apr 2002 22:29:38 +0000 |
| parents | dbacf99cccc4 |
| children | 5eca5e9178c8 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sun Apr 28 22:28:38 2002 +0000 +++ b/lisp/subr.el Sun Apr 28 22:29:38 2002 +0000 @@ -1843,20 +1843,24 @@ (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))