From 2c37c14bd0982c1c96e7ef8581d8d23f89019a1b Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Fri, 1 Mar 2002 01:18:37 +0000 Subject: [PATCH] (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'. --- lisp/calc/calc-graph.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.5