Mercurial > emacs

changeset 25483:cd1649a27c08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-command, shell-command-on-region): Use make-temp-name properly. Use small-temporary-file-directory if non-nil, otherwise temporary-file-directory, to generate temporary files.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 02 Sep 1999 12:05:07 +0000
parents f1d437596538
children a8383dbd7250
files lisp/simple.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Sep 02 11:51:42 1999 +0000
+++ b/lisp/simple.el	Thu Sep 02 12:05:07 1999 +0000
@@ -1099,8 +1099,10 @@
 	       (not (or (bufferp output-buffer)  (stringp output-buffer))))
 	  (let ((error-file
 		 (if error-buffer 
-		     (concat (file-name-directory temp-file-name-pattern)
-			     (make-temp-name "scor"))
+		     (make-temp-name
+		      (expand-file-name "scor"
+					(or small-temporary-file-directory
+					    temporary-file-directory)))
 		   nil)))
 	    (barf-if-buffer-read-only)
 	    (push-mark nil t)
@@ -1231,9 +1233,11 @@
 		       current-prefix-arg
 		       shell-command-default-error-buffer)))
   (let ((error-file
-	 (if error-buffer 
-	     (concat (file-name-directory temp-file-name-pattern)
-		     (make-temp-name "scor"))
+	 (if error-buffer
+	     (make-temp-name
+	      (expand-file-name "scor"
+				(or small-temporary-file-directory
+				    temporary-file-directory)))
 	   nil))
 	exit-status)
     (if (or replace