Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 104804:6a1f7b318ddf
(gnus-float-time): Make TIME optional, defaulting to current-time.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 02 Sep 2009 06:36:11 +0000 |
| parents | 0b94fa0fdedb |
| children | 409fc58fd03d |
comparison
equal
deleted
inserted
replaced
| 104803:2fb28585eb6b | 104804:6a1f7b318ddf |
|---|---|
| 283 (let ((fdate (nth 5 (file-attributes file)))) | 283 (let ((fdate (nth 5 (file-attributes file)))) |
| 284 (or (> (car fdate) (car date)) | 284 (or (> (car fdate) (car date)) |
| 285 (and (= (car fdate) (car date)) | 285 (and (= (car fdate) (car date)) |
| 286 (> (nth 1 fdate) (nth 1 date)))))) | 286 (> (nth 1 fdate) (nth 1 date)))))) |
| 287 | 287 |
| 288 (defun gnus-float-time (time) | 288 (defun gnus-float-time (&optional time) |
| 289 "Convert time value TIME to a floating point number." | 289 "Convert time value TIME to a floating point number. |
| 290 TIME defaults to the current time." | |
| 290 (if (featurep 'xemacs) | 291 (if (featurep 'xemacs) |
| 291 (time-to-seconds time) | 292 (time-to-seconds (or time (current-time))) |
| 292 (float-time time))) | 293 (float-time time))) |
| 293 | 294 |
| 294 ;;; Keymap macros. | 295 ;;; Keymap macros. |
| 295 | 296 |
| 296 (defmacro gnus-local-set-keys (&rest plist) | 297 (defmacro gnus-local-set-keys (&rest plist) |