From 73d3efb2785f08abfcdb0dc5eaafd4cf3331a0a6 Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Mon, 20 Aug 2001 16:32:52 +0000 Subject: [PATCH] Use string-to-number. --- misc/ChangeLog | 6 ++++++ misc/po-mode.el | 10 +++++----- 2 files changed, 11 insertions(+), 5 deletions(-) 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 + + * 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 * 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. -- 2.47.3