diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:44:07 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:44:07 +0000 |
| commit | 723c2377e838218e7689c7ab6943dccce71c40ed (patch) | |
| tree | cd4dc4181771faa7b676c4727c29bd952f521698 /lisp/calc/calc-graph.el | |
| parent | d227f871c91e27aa7b7c117284f15d88a4eed4a9 (diff) | |
| download | emacs-723c2377e838218e7689c7ab6943dccce71c40ed.tar.gz | |
(calc-graph-plot, calc-graph-set-styles, calc-graph-num-points)
(calc-graph-init): Replace string-to-int by string-to-number.
Diffstat (limited to 'lisp/calc/calc-graph.el')
| -rw-r--r-- | lisp/calc/calc-graph.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el index 6a58a6215fa..09bea69cf73 100644 --- a/lisp/calc/calc-graph.el +++ b/lisp/calc/calc-graph.el @@ -407,13 +407,13 @@ (prin1-to-string output))))) (setq calc-graph-resolution (calc-graph-find-command "samples")) (if calc-graph-resolution - (setq calc-graph-resolution (string-to-int calc-graph-resolution)) + (setq calc-graph-resolution (string-to-number calc-graph-resolution)) (setq calc-graph-resolution (if calc-graph-is-splot calc-graph-default-resolution-3d calc-graph-default-resolution))) (setq precision (calc-graph-find-command "precision")) (if precision - (setq precision (string-to-int precision)) + (setq precision (string-to-number precision)) (setq precision calc-graph-default-precision)) (calc-graph-set-command "terminal") (calc-graph-set-command "output") @@ -1078,11 +1078,11 @@ This \"dumb\" driver will be present in Gnuplot 3.0." (setq mode (buffer-substring (match-beginning 1) (match-end 1)))) (if (looking-at "[ \ta-z]+\\([0-9]+\\)") - (setq lstyle (string-to-int + (setq lstyle (string-to-number (buffer-substring (match-beginning 1) (match-end 1))))) (if (looking-at "[ \ta-z]+[0-9]+[ \t]+\\([0-9]+\\)") - (setq pstyle (string-to-int + (setq pstyle (string-to-number (buffer-substring (match-beginning 1) (match-end 1))))))) (setq lenbl (or (equal mode "lines") (equal mode "linespoints")) @@ -1195,11 +1195,11 @@ This \"dumb\" driver will be present in Gnuplot 3.0." (if (equal res "") (message "Default resolution is %d" calc-graph-default-resolution) - (setq calc-graph-default-resolution (string-to-int res))) + (setq calc-graph-default-resolution (string-to-number res))) (if (equal res "") (message "Default 3D resolution is %d" calc-graph-default-resolution-3d) - (setq calc-graph-default-resolution-3d (string-to-int res)))) + (setq calc-graph-default-resolution-3d (string-to-number res)))) (calc-graph-set-command "samples" (if (not (equal res "")) res)))) (defun calc-graph-device (name flag) @@ -1456,7 +1456,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0." (goto-char origin) (re-search-forward "G N U P L O T.*\n.*version \\([0-9]+\\)\\." nil t)) - (setq calc-gnuplot-version (string-to-int (buffer-substring + (setq calc-gnuplot-version (string-to-number (buffer-substring (match-beginning 1) (match-end 1)))) (setq calc-gnuplot-version 1)) |