Index: emacs/lisp/obsolete/rnews.el
diff -c emacs/lisp/obsolete/rnews.el:1.4 emacs/lisp/obsolete/rnews.el:1.5
*** emacs/lisp/obsolete/rnews.el:1.4 Mon Sep 1 15:45:33 2003
--- emacs/lisp/obsolete/rnews.el Mon May 9 08:46:35 2005
***************
*** 397,405 ****
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 n n))))
;(defun is-in (elt lis)
--- 397,405 ----
to a list (a . b)"
(let ((n (string-match "-" number-string)))
(if n
! (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,530 ****
(news-select-message arg))
(defun news-select-message (arg)
! (if (stringp arg) (setq arg (string-to-int arg)))
(let ((file (concat news-path
(string-subst-char ?/ ?. news-current-news-group)
"/" arg)))
--- 524,530 ----
(news-select-message arg))
(defun news-select-message (arg)
! (if (stringp arg) (setq arg (string-to-number arg)))
(let ((file (concat news-path
(string-subst-char ?/ ?. news-current-news-group)
"/" arg)))
***************
*** 803,809 ****
;; 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))
(setq news-list-of-files
(delq (car tem) news-list-of-files)))
(setq tem (cdr tem)))
--- 803,809 ----
;; don't get confused by directories that look like
numbers
(file-directory-p
(concat file-directory "/" (car tem)))
! (<= (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,817 ****
(progn (setq news-current-group-end 0)
nil)
(setq news-list-of-files
! (mapcar 'string-to-int news-list-of-files))
(setq news-list-of-files (sort news-list-of-files '<))
(setq news-current-group-end
(elt news-list-of-files
--- 811,817 ----
(progn (setq news-current-group-end 0)
nil)
(setq 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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
