(sh-tmp-file): Use $TMPDIR, if defined, for sh.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 1c6994b1fc81b08d1cd8666ad30f11a9a02e0707..c666e0e2feef85634e803edeede2e5767478fc88 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1,6 +1,6 @@
 ;;; sh-script.el --- shell-script editing commands for Emacs
 
-;; Copyright (C) 1993, 94, 95, 96, 1997 by Free Software Foundation, Inc.
+;; Copyright (C) 1993, 94, 95, 96, 97, 1999 by Free Software Foundation, Inc.
 
 ;; Author: Daniel Pfeiffer <occitan@esperanto.org>
 ;; Version: 2.0e
@@ -1344,7 +1344,7 @@ t means to return a list of all possible completions of STRING.
        "tmp = /tmp/" str ".$pid" \n
        "fn sigexit { rm $tmp^* >[2]/dev/null }")
   (sh (file-name-nondirectory (buffer-file-name))
-      "TMP=/tmp/" str ".$$" \n
+      "TMP=${TMPDIR:-/tmp}/" str ".$$" \n
       "trap \"rm $TMP* 2>/dev/null\" " ?0))