From fb9464eea3875b49525e4d71900618465b7cb5fc Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 27 Jan 2011 00:38:43 -0800 Subject: [PATCH] * lisp/gnus/gnus-util.el (float-time): Get rid of compiler warning, again. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-util.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 341351ef7f8..5f20d2cfa65 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-01-27 Glenn Morris + + * gnus-util.el (float-time): Get rid of compiler warning, again. + 2011-01-27 Lars Ingebrigtsen * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index f1d0ce952e4..d298c715443 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -333,8 +333,11 @@ Symbols are also allowed; their print names are used instead." (and (= (car fdate) (car date)) (> (nth 1 fdate) (nth 1 date)))))) +;; Every version of Emacs Gnus supports has built-in float-time. +;; The featurep test silences an irritating compiler warning. (eval-and-compile - (if (fboundp 'float-time) + (if (or (featurep 'emacs) + (fboundp 'float-time)) (defalias 'gnus-float-time 'float-time) (defun gnus-float-time (&optional time) "Convert time value TIME to a floating point number. -- 2.39.2