andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Replace `string-to-int' by `string-to-number'.
This commit is contained in:
Juanma Barranquero 2005-05-09 08:47:56 +00:00
parent 084ea2c3ee
commit 786401049f
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

12
lisp/obsolete/rnews.el
View file

@ -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