Here it is one for c?sh.
*** sh-script.el Wed Sep 21 13:02:55 2005
--- sh-script.el Mon Oct 10 11:57:41 2005
***************
*** 3392,3398 ****
"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
"onintr exit" \n _
(and (goto-char (point-max))
(not (bolp))
--- 3392,3398 ----
"Insert code to setup temporary file handling. See `sh-feature'."
(bash sh-append ksh88)
(csh (file-name-nondirectory (buffer-file-name))
! "set tmp = `mktemp /tmp/" str ".XXXXXX`" \n
"onintr exit" \n _
(and (goto-char (point-max))
(not (bolp))
***************
*** 3415,3421 ****
> "tmp = /tmp/" str ".$pid" \n
"fn sigexit { rm $tmp^* >[2]/dev/null }" \n)
(sh (file-name-nondirectory (buffer-file-name))
! > "TMP=${TMPDIR:-/tmp}/" str ".$$" \n
"trap \"rm $TMP* 2>/dev/null\" " ?0 \n))
--- 3415,3421 ----
> "tmp = /tmp/" str ".$pid" \n
"fn sigexit { rm $tmp^* >[2]/dev/null }" \n)
(sh (file-name-nondirectory (buffer-file-name))
! > "TMP=`mktemp ${TMPDIR:-/tmp}/" str ".XXXXXX`" \n
"trap \"rm $TMP* 2>/dev/null\" " ?0 \n))
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
