Mercurial > emacs

comparison lisp/calc/calc-graph.el @ 58657:05cfe246ec8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a provide statement. (calc-Need-calc-graph): Remove it. (calc-gnuplot-name, calc-gnuplot-plot-command, calc-gnuplot-print): Give them values.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 30 Nov 2004 17:10:43 +0000
parents 0a85050b3bb4
children 39d1282c0854 f2ebccfa87d4
comparison
equal deleted inserted replaced
58656:c60e5eef3cde 58657:05cfe246ec8d
25 ;;; Commentary: 25 ;;; Commentary:
26 26
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
30 (require 'calc-ext) 31 (require 'calc-ext)
31
32 (require 'calc-macs) 32 (require 'calc-macs)
33 33
34 (defun calc-Need-calc-graph () nil)
35
36
37 ;;; Graphics 34 ;;; Graphics
38 35
39 ;;; Note that some of the following initial values also occur in calc.el. 36 (defvar calc-gnuplot-name "gnuplot"
37 "*Name of GNUPLOT program, for calc-graph features.")
38
39 (defvar calc-gnuplot-plot-command nil
40 "*Name of command for displaying GNUPLOT output; %s = file name to print.")
41
42 (defvar calc-gnuplot-print-command "lp %s"
43 "*Name of command for printing GNUPLOT output; %s = file name to print.")
44
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)
43 (defvar calc-gnuplot-default-output) 48 (defvar calc-gnuplot-default-output)
44 (defvar calc-gnuplot-print-device) 49 (defvar calc-gnuplot-print-device)
1470 (eq (char-after (1- (point-max))) ?\n) 1475 (eq (char-after (1- (point-max))) ?\n)
1471 (progn 1476 (progn
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