From: Bruno Haible <bruno@clisp.org>
Date: Mon, 20 Aug 2001 16:32:52 +0000 (+0000)
Subject: Use string-to-number.
X-Git-Tag: v0.11~538
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=73d3efb2785f08abfcdb0dc5eaafd4cf3331a0a6;p=thirdparty%2Fgettext.git

Use string-to-number.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 1f589db19..c400af0bc 100644
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-18  Karl Eichwalder  <ke@suse.de>
+
+	* po-mode.el (po-ensure-source-references): Use 'string-to-number'
+	instead of 'string-to-int'.
+	(po-msgfmt-version-check): Likewise.
+
 2001-08-11  Karl Eichwalder  <ke@suse.de>
 
 	* po-mode.el (po-edit-string): Set indent-line-function to
diff --git a/misc/po-mode.el b/misc/po-mode.el
index 2580d0ed6..9d970a3b9 100644
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -2214,7 +2214,7 @@ the file without moving its cursor."
 		  (setq po-reference-alist
 			(cons (list (concat current ":" line)
 				    current
-				    (string-to-int line))
+				    (string-to-number line))
 			      po-reference-alist)))))))
     (setq po-reference-alist (nreverse po-reference-alist)
 	  po-reference-cursor po-reference-alist
@@ -2875,11 +2875,11 @@ Leave point after marked string."
                  (looking-at ".* \\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)$")))
 
       ;; Make sure the version is recent enough.
-      (>= (string-to-int
+      (>= (string-to-number
 	   (format "%d%03d%03d"
-		   (string-to-int (match-string 1))
-		   (string-to-int (match-string 2))
-		   (string-to-int (or (match-string 3) "0"))))
+		   (string-to-number (match-string 1))
+		   (string-to-number (match-string 2))
+		   (string-to-number (or (match-string 3) "0"))))
 	  010036)
 
       ;; Remember the outcome.