From 723c2377e838218e7689c7ab6943dccce71c40ed Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 2 May 2005 19:44:07 +0000 Subject: [PATCH] (calc-graph-plot, calc-graph-set-styles, calc-graph-num-points) (calc-graph-init): Replace string-to-int by string-to-number. --- lisp/calc/calc-graph.el | 14 +++++++------- 1 file 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)) -- 2.39.2