[Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el

[Colin Walters]

Index: emacs/lisp/calc/calc-graph.el
diff -c emacs/lisp/calc/calc-graph.el:1.4 emacs/lisp/calc/calc-graph.el:1.5
*** emacs/lisp/calc/calc-graph.el:1.4   Mon Nov 19 02:34:16 2001
--- emacs/lisp/calc/calc-graph.el       Thu Feb 28 20:18:37 2002
***************
*** 37,43 ****
  ;;; 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-default-device "default")
  (defvar calc-gnuplot-default-output "STDOUT")
--- 37,43 ----
  ;;; Graphics
  
  ;;; Note that some of the following initial values also occur in calc.el.
! (defvar calc-gnuplot-tempfile "calc")
  
  (defvar calc-gnuplot-default-device "default")
  (defvar calc-gnuplot-default-output "STDOUT")
***************
*** 845,851 ****
      (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
                          (concat calc-gnuplot-tempfile
                                  (if (<= num 0)
                                      (char-to-string (- ?A num))
--- 845,851 ----
      (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-file
                          (concat calc-gnuplot-tempfile
                                  (if (<= num 0)
                                      (char-to-string (- ?A num))