From 527fcf9f178830ceb4584b57362c83ffa92ce104 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 27 Jan 2011 10:23:30 +0000 Subject: [PATCH] gnus-util.el (float-time): Get rid of compiler warning, again. --- lisp/ChangeLog | 4 ++++ lisp/gnus-util.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ba846165..1e7b83b57 100644 --- a/lisp/ChangeLog +++ b/lisp/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 * shr.el (shr-put-color): Special-case background colours: Do put them diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index f1d0ce952..d298c7154 100644 --- a/lisp/gnus-util.el +++ b/lisp/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.25.1