Mercurial > emacs

changeset 62037:3947739eeeb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-graph-plot, calc-graph-set-styles, calc-graph-num-points) (calc-graph-init): Replace string-to-int by string-to-number.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 02 May 2005 19:44:07 +0000
parents e0224a91347d
children a5b38402e3e1
files lisp/calc/calc-graph.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-graph.el	Mon May 02 19:43:25 2005 +0000
+++ b/lisp/calc/calc-graph.el	Mon May 02 19:44:07 2005 +0000
@@ -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 @@
 		(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 @@
 	  (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 @@
 		(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))