Mercurial > hg > xemacs-beta

comparison lisp/gnus/parse-time.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents ec9a17fef872
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
140 [0 2] [3 5] [6 8]) 140 [0 2] [3 5] [6 8])
141 ((8 7) parse-time-zoneinfo 141 ((8 7) parse-time-zoneinfo
142 ,#'(lambda () (car val)) 142 ,#'(lambda () (car val))
143 ,#'(lambda () (cadr val))) 143 ,#'(lambda () (cadr val)))
144 ((8) 144 ((8)
145 ,#'(lambda () 145 ,#'(lambda ()
146 (and (stringp elt) 146 (and (stringp elt)
147 (= 5 (length elt)) 147 (= 5 (length elt))
148 (or (= (aref elt 0) ?+) (= (aref elt 0) ?-)))) 148 (or (= (aref elt 0) ?+) (= (aref elt 0) ?-))))
149 ,#'(lambda () (* 60 (+ (parse-integer elt 3 5) 149 ,#'(lambda () (* 60 (+ (parse-integer elt 3 5)
150 (* 60 (parse-integer elt 1 3))) 150 (* 60 (parse-integer elt 1 3)))