# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1128979425 0
# Node ID a001884be063ee54918c8cada1b3b40e27475277
# Parent  e081ee8c2eb218d8c696372160f02d36f0007c71
(sh-tmp-file): Use mktemp.

diff -r e081ee8c2eb2 -r a001884be063 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Mon Oct 10 20:49:55 2005 +0000
+++ b/lisp/progmodes/sh-script.el	Mon Oct 10 21:23:45 2005 +0000
@@ -3392,16 +3392,20 @@
   "Insert code to setup temporary file handling.  See `sh-feature'."
   (bash sh-append ksh88)
   (csh (file-name-nondirectory (buffer-file-name))
-       "set tmp = /tmp/" str ".$$" \n
+       "set tmp = `mktemp /tmp/" str ".XXXXXX`" \n
        "onintr exit" \n _
        (and (goto-char (point-max))
 	    (not (bolp))
 	    ?\n)
        "exit:\n"
        "rm $tmp* >&/dev/null" > \n)
+  ;; The change to use mktemp here has not been tested;
+  ;; I don't know es syntax, so I had to guess.
+  ;; If you try it, or if you know es syntax and can check it,
+  ;; please tell me whether it needs any change.  --rms.
   (es (file-name-nondirectory (buffer-file-name))
-      > "local( signals = $signals sighup sigint; tmp = /tmp/" str
-      ".$pid ) {" \n
+      > "local( signals = $signals sighup sigint; tmp = `mktemp /tmp/" str
+      ".XXXXXX` ) {" \n
       > "catch @ e {" \n
       > "rm $tmp^* >[2]/dev/null" \n
       "throw $e" \n
@@ -3411,11 +3415,15 @@
       ?\} > \n)
   (ksh88 sh-modify sh
 	 7 "EXIT")
+  ;; The change to use mktemp here has not been tested;
+  ;; I don't know rc syntax, so I had to guess.
+  ;; If you try it, or if you know rc syntax and can check it,
+  ;; please tell me whether it needs any change.  --rms.
   (rc (file-name-nondirectory (buffer-file-name))
-      > "tmp = /tmp/" str ".$pid" \n
+      > "tmp = `mktemp /tmp/" str ".XXXXXX`" \n
       "fn sigexit { rm $tmp^* >[2]/dev/null }" \n)
   (sh (file-name-nondirectory (buffer-file-name))
-      > "TMP=${TMPDIR:-/tmp}/" str ".$$" \n
+      > "TMP=`mktemp ${TMPDIR:-/tmp}/" str ".XXXXXX`" \n
       "trap \"rm $TMP* 2>/dev/null\" " ?0 \n))