Mercurial > emacs
comparison lisp/obsolete/rnews.el @ 62196:86f3ab4179bd
(news-parse-range, news-select-message, news-get-pruned-list-of-files):
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 09 May 2005 08:46:35 +0000 |
| parents | 695cf19ef79e |
| children | a1fa16a75bde 62afea0771d8 |
comparison
equal
deleted
inserted
replaced
| 62195:db28615c678a | 62196:86f3ab4179bd |
|---|---|
| 395 (defun news-parse-range (number-string) | 395 (defun news-parse-range (number-string) |
| 396 "Parse string representing range of numbers of he form <a>-<b> | 396 "Parse string representing range of numbers of he form <a>-<b> |
| 397 to a list (a . b)" | 397 to a list (a . b)" |
| 398 (let ((n (string-match "-" number-string))) | 398 (let ((n (string-match "-" number-string))) |
| 399 (if n | 399 (if n |
| 400 (cons (string-to-int (substring number-string 0 n)) | 400 (cons (string-to-number (substring number-string 0 n)) |
| 401 (string-to-int (substring number-string (1+ n)))) | 401 (string-to-number (substring number-string (1+ n)))) |
| 402 (setq n (string-to-int number-string)) | 402 (setq n (string-to-number number-string)) |
| 403 (cons n n)))) | 403 (cons n n)))) |
| 404 | 404 |
| 405 ;(defun is-in (elt lis) | 405 ;(defun is-in (elt lis) |
| 406 ; (catch 'foo | 406 ; (catch 'foo |
| 407 ; (while lis | 407 ; (while lis |
| 522 (if (null current-prefix-arg) | 522 (if (null current-prefix-arg) |
| 523 (setq arg (read-no-blanks-input "Go to article: " ""))) | 523 (setq arg (read-no-blanks-input "Go to article: " ""))) |
| 524 (news-select-message arg)) | 524 (news-select-message arg)) |
| 525 | 525 |
| 526 (defun news-select-message (arg) | 526 (defun news-select-message (arg) |
| 527 (if (stringp arg) (setq arg (string-to-int arg))) | 527 (if (stringp arg) (setq arg (string-to-number arg))) |
| 528 (let ((file (concat news-path | 528 (let ((file (concat news-path |
| 529 (string-subst-char ?/ ?. news-current-news-group) | 529 (string-subst-char ?/ ?. news-current-news-group) |
| 530 "/" arg))) | 530 "/" arg))) |
| 531 (if (= arg | 531 (if (= arg |
| 532 (or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files)) | 532 (or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files)) |
| 801 (while tem | 801 (while tem |
| 802 (if (or (not (string-match "^[0-9]*$" (car tem))) | 802 (if (or (not (string-match "^[0-9]*$" (car tem))) |
| 803 ;; don't get confused by directories that look like numbers | 803 ;; don't get confused by directories that look like numbers |
| 804 (file-directory-p | 804 (file-directory-p |
| 805 (concat file-directory "/" (car tem))) | 805 (concat file-directory "/" (car tem))) |
| 806 (<= (string-to-int (car tem)) end-file-no)) | 806 (<= (string-to-number (car tem)) end-file-no)) |
| 807 (setq news-list-of-files | 807 (setq news-list-of-files |
| 808 (delq (car tem) news-list-of-files))) | 808 (delq (car tem) news-list-of-files))) |
| 809 (setq tem (cdr tem))) | 809 (setq tem (cdr tem))) |
| 810 (if (null news-list-of-files) | 810 (if (null news-list-of-files) |
| 811 (progn (setq news-current-group-end 0) | 811 (progn (setq news-current-group-end 0) |
| 812 nil) | 812 nil) |
| 813 (setq news-list-of-files | 813 (setq news-list-of-files |
| 814 (mapcar 'string-to-int news-list-of-files)) | 814 (mapcar 'string-to-number news-list-of-files)) |
| 815 (setq news-list-of-files (sort news-list-of-files '<)) | 815 (setq news-list-of-files (sort news-list-of-files '<)) |
| 816 (setq news-current-group-end | 816 (setq news-current-group-end |
| 817 (elt news-list-of-files | 817 (elt news-list-of-files |
| 818 (1- (length news-list-of-files)))) | 818 (1- (length news-list-of-files)))) |
| 819 news-list-of-files))))))) | 819 news-list-of-files))))))) |