diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 06:36:11 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 06:36:11 +0000 |
| commit | c506adde9f36bae5fd501e58a1e064f810b2be5e (patch) | |
| tree | 896ab7a486131220e5aac0eef2784a5cf44b69d2 /lisp/gnus | |
| parent | 9693d3c4a3f735395912387902debd22eb10e4b9 (diff) | |
| download | emacs-c506adde9f36bae5fd501e58a1e064f810b2be5e.tar.gz | |
(gnus-float-time): Make TIME optional, defaulting to current-time.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 788fa16cb0d..fb2cdbce118 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -285,10 +285,11 @@ Symbols are also allowed; their print names are used instead." (and (= (car fdate) (car date)) (> (nth 1 fdate) (nth 1 date)))))) -(defun gnus-float-time (time) - "Convert time value TIME to a floating point number." +(defun gnus-float-time (&optional time) + "Convert time value TIME to a floating point number. +TIME defaults to the current time." (if (featurep 'xemacs) - (time-to-seconds time) + (time-to-seconds (or time (current-time))) (float-time time))) ;;; Keymap macros. |