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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d6c88be6b8c5a10aa5f46082ed389acef3c718dd..6e688453c28f09f74a02951ffb3b5508fcac5a6c 100644 (file)
--- 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 45d4f768a07baf762541ae5f005d8d3199db0589..cb2ed034ffc96daa72e86027d96f76b45174f6c8 100644 (file)
--- 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