# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 936273907 0
# Node ID cd1649a27c08f3839be1d3b352063467818998a5
# Parent  f1d4375965382c661a16a9b9a60dd7d9c1ddea39
(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.

diff -r f1d437596538 -r cd1649a27c08 lisp/simple.el
--- 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