(news-parse-range, news-select-message, news-get-pruned-list-of-files):

Replace `string-to-int' by `string-to-number'.

2 files changed, 12 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d6c88be6b8c..6e688453c28 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2005-05-09  Juanma Barranquero  <lekktu@gmail.com>
 
+        * obsolete/float.el (string-to-float):
+        * obsolete/hilit19.el (hilit-add-pattern):
+        * obsolete/rnews.el (news-parse-range, news-select-message)
+        (news-get-pruned-list-of-files): Replace `string-to-int' by
+        `string-to-number'.
+
         * obsolete/uncompress.el: Set `find-file-not-found-functions', not
         `find-file-not-found-hooks'; use `add-hook'.
         (uncompress-while-visiting): Set `write-file-functions', not
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el
index 45d4f768a07..cb2ed034ffc 100644
--- a/lisp/obsolete/rnews.el
+++ b/lisp/obsolete/rnews.el
@@ -397,9 +397,9 @@ U       unsubscribe from specified newsgroup."
 to a list (a . b)"
   (let ((n (string-match "-" number-string)))
     (if n
-        (cons (string-to-int (substring number-string 0 n))
-              (string-to-int (substring number-string (1+ n))))
-      (setq n (string-to-int number-string))
+        (cons (string-to-number (substring number-string 0 n))
+              (string-to-number (substring number-string (1+ n))))
+      (setq n (string-to-number number-string))
       (cons n n))))
 
 ;(defun is-in (elt lis)
@@ -524,7 +524,7 @@ to a list (a . b)"
   (news-select-message arg))
 
 (defun news-select-message (arg)
-  (if (stringp arg) (setq arg (string-to-int arg)))
+  (if (stringp arg) (setq arg (string-to-number arg)))
   (let ((file (concat news-path
                       (string-subst-char ?/ ?. news-current-news-group)
                       "/" arg)))
@@ -803,7 +803,7 @@ Using ls was found to be too slow in a previous version."
                          ;; don't get confused by directories that look like numbers
                          (file-directory-p
                           (concat file-directory "/" (car tem)))
-                         (<= (string-to-int (car tem)) end-file-no))
+                         (<= (string-to-number (car tem)) end-file-no))
                      (setq news-list-of-files
                            (delq (car tem) news-list-of-files)))
                  (setq tem (cdr tem)))
@@ -811,7 +811,7 @@ Using ls was found to be too slow in a previous version."
                    (progn (setq news-current-group-end 0)
                           nil)
                  (setq news-list-of-files
-                       (mapcar 'string-to-int news-list-of-files))
+                       (mapcar 'string-to-number news-list-of-files))
                  (setq news-list-of-files (sort news-list-of-files '<))
                  (setq news-current-group-end
                        (elt news-list-of-files