diff options
| author | Jay Belanger | 2004-11-30 17:10:43 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-11-30 17:10:43 +0000 |
| commit | 808cd573868d163b57c05d44ff8ac3ba026d6c74 (patch) | |
| tree | 7df3ae2fe9283a89131e6d8f65bcae070b7e2039 | |
| parent | 300f28d368b3a9188a82c79c4ca587eae5484c9c (diff) | |
| download | emacs-808cd573868d163b57c05d44ff8ac3ba026d6c74.tar.gz emacs-808cd573868d163b57c05d44ff8ac3ba026d6c74.zip | |
Add a provide statement.
(calc-Need-calc-graph): Remove it.
(calc-gnuplot-name, calc-gnuplot-plot-command, calc-gnuplot-print):
Give them values.
| -rw-r--r-- | lisp/calc/calc-graph.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el index d4cc4c54518..b645b8692dd 100644 --- a/lisp/calc/calc-graph.el +++ b/lisp/calc/calc-graph.el | |||
| @@ -27,16 +27,21 @@ | |||
| 27 | ;;; Code: | 27 | ;;; Code: |
| 28 | 28 | ||
| 29 | ;; This file is autoloaded from calc-ext.el. | 29 | ;; This file is autoloaded from calc-ext.el. |
| 30 | (require 'calc-ext) | ||
| 31 | 30 | ||
| 31 | (require 'calc-ext) | ||
| 32 | (require 'calc-macs) | 32 | (require 'calc-macs) |
| 33 | 33 | ||
| 34 | (defun calc-Need-calc-graph () nil) | 34 | ;;; Graphics |
| 35 | |||
| 36 | (defvar calc-gnuplot-name "gnuplot" | ||
| 37 | "*Name of GNUPLOT program, for calc-graph features.") | ||
| 35 | 38 | ||
| 39 | (defvar calc-gnuplot-plot-command nil | ||
| 40 | "*Name of command for displaying GNUPLOT output; %s = file name to print.") | ||
| 36 | 41 | ||
| 37 | ;;; Graphics | 42 | (defvar calc-gnuplot-print-command "lp %s" |
| 43 | "*Name of command for printing GNUPLOT output; %s = file name to print.") | ||
| 38 | 44 | ||
| 39 | ;;; Note that some of the following initial values also occur in calc.el. | ||
| 40 | (defvar calc-gnuplot-tempfile "calc") | 45 | (defvar calc-gnuplot-tempfile "calc") |
| 41 | 46 | ||
| 42 | (defvar calc-gnuplot-default-device) | 47 | (defvar calc-gnuplot-default-device) |
| @@ -1472,5 +1477,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0." | |||
| 1472 | (goto-char (point-max)) | 1477 | (goto-char (point-max)) |
| 1473 | (insert "\n")))))) | 1478 | (insert "\n")))))) |
| 1474 | 1479 | ||
| 1480 | (provide 'calc-graph) | ||
| 1481 | |||
| 1475 | ;;; arch-tag: e4b06a52-c386-4d54-a2bb-7c0a0ef533c2 | 1482 | ;;; arch-tag: e4b06a52-c386-4d54-a2bb-7c0a0ef533c2 |
| 1476 | ;;; calc-graph.el ends here | 1483 | ;;; calc-graph.el ends here |