diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 08:47:56 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 08:47:56 +0000 |
| commit | 786401049ff46b08442a7a9f9ba2b7360433dd7a (patch) | |
| tree | 03768e77748a74eac51d5505fa9bb45270d30fdb /lisp/obsolete/rnews.el | |
| parent | 084ea2c3ee70f5403da0d0bbdda8b9a123c65636 (diff) | |
| download | emacs-786401049ff46b08442a7a9f9ba2b7360433dd7a.tar.gz | |
(news-parse-range, news-select-message, news-get-pruned-list-of-files):
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/obsolete/rnews.el')
| -rw-r--r-- | lisp/obsolete/rnews.el | 12 |
1 files changed, 6 insertions, 6 deletions
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 |