From: Colin Walters <walters@gnu.org>
Date: Fri, 1 Mar 2002 01:18:37 +0000 (+0000)
Subject: (calc-gnuplot-tempfile): Don't expand against
X-Git-Tag: ttn-vms-21-2-B4~16420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c37c14bd0982c1c96e7ef8581d8d23f89019a1b;p=emacs.git

(calc-gnuplot-tempfile): Don't expand against
`temporary-file-directory'; we now do that in `calc-graph-file-cache'.
(calc-temp-file-name): Use `make-temp-file'.
---

diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index 417e1e436a9..2a69a28883f 100644
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -37,7 +37,7 @@
 ;;; Graphics
 
 ;;; Note that some of the following initial values also occur in calc.el.
-(defvar calc-gnuplot-tempfile (expand-file-name "calc" temporary-file-directory))
+(defvar calc-gnuplot-tempfile "calc")
 
 (defvar calc-gnuplot-default-device "default")
 (defvar calc-gnuplot-default-output "STDOUT")
@@ -845,7 +845,7 @@
     (setq calc-graph-file-cache (nconc calc-graph-file-cache (list nil))))
   (car (or (nth (1+ num) calc-graph-file-cache)
 	   (setcar (nthcdr (1+ num) calc-graph-file-cache)
-		   (list (make-temp-name
+		   (list (make-temp-file
 			  (concat calc-gnuplot-tempfile
 				  (if (<= num 0)
 				      (char-to-string (- ?A num))