mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-float-time): Make TIME optional, defaulting to current-time.

Browse source
This commit is contained in:
Glenn Morris 2009-09-02 06:36:11 +00:00
parent 9693d3c4a3
commit c506adde9f
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/gnus-util.el
View file

@ -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.