Mercurial > emacs

comparison lisp/mail/feedmail.el @ 62402:a7e02ef1e3d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace `string-to-int' by `string-to-number'.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 16 May 2005 11:33:47 +0000
parents 695cf19ef79e
children 4e6c5e8ae4e9 f042e7c0fe20
comparison
equal deleted inserted replaced
62401:4512c4db6912 62402:a7e02ef1e3d6
1833 ((file-directory-p blobby) nil) ; don't care about subdirs 1833 ((file-directory-p blobby) nil) ; don't care about subdirs
1834 ((feedmail-fqm-p blobby) 1834 ((feedmail-fqm-p blobby)
1835 (setq blobbet (file-name-nondirectory blobby)) 1835 (setq blobbet (file-name-nondirectory blobby))
1836 (if (string-match "^[0-9][0-9][0-9]-" blobbet) 1836 (if (string-match "^[0-9][0-9][0-9]-" blobbet)
1837 (let ((water-mark)) 1837 (let ((water-mark))
1838 (setq water-mark (string-to-int (substring blobbet 0 3))) 1838 (setq water-mark (string-to-number (substring blobbet 0 3)))
1839 (if (> water-mark high-water) (setq high-water water-mark)))) 1839 (if (> water-mark high-water) (setq high-water water-mark))))
1840 (setq q-cnt (1+ q-cnt))) 1840 (setq q-cnt (1+ q-cnt)))
1841 (t (setq q-oth (1+ q-oth))) 1841 (t (setq q-oth (1+ q-oth)))
1842 )) 1842 ))
1843 (directory-files queue-directory t))) 1843 (directory-files queue-directory t)))