From 786401049ff46b08442a7a9f9ba2b7360433dd7a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 9 May 2005 08:47:56 +0000 Subject: [PATCH] (news-parse-range, news-select-message, news-get-pruned-list-of-files): Replace `string-to-int' by `string-to-number'. --- lisp/ChangeLog | 6 ++++++ lisp/obsolete/rnews.el | 12 ++++++------ 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 + * 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 -- 2.39.2