mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

* lisp/gnus/gnus-util.el (float-time): Get rid of compiler warning, again.

Browse Source
This commit is contained in:
Glenn Morris 2011-01-27 00:38:43 -08:00
parent ed7646d454
commit fb9464eea3
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2011-01-27 Glenn Morris <rgm@gnu.org>
* gnus-util.el (float-time): Get rid of compiler warning, again.
2011-01-27 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-draft.el (gnus-draft-clear-marks): New function to be run as an

5
lisp/gnus/gnus-util.el
View File

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