Fix gnus-load.el generation.

[gnus] / lisp / gnus-util.el

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index fce82db..7bacaba 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1,6 +1,6 @@
 ;;; gnus-util.el --- utility functions for Gnus
 
-;; Copyright (C) 1996-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2015 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -313,13 +313,10 @@ Symbols are also allowed; their print names are used instead."
 
 ;; Every version of Emacs Gnus supports has built-in float-time.
 ;; The featurep test silences an irritating compiler warning.
-(if (featurep 'emacs)
-    (defalias 'gnus-float-time 'float-time
-      "Convert time value TIME to a floating point number.
-TIME defaults to the current time.")
-  ;; `defalias' takes only two arguments in XEmacs.
-  (defalias 'gnus-float-time
-    (if (fboundp 'float-time) 'float-time 'time-to-seconds)))
+(defalias 'gnus-float-time
+  (if (or (featurep 'emacs)
+         (fboundp 'float-time))
+      'float-time 'time-to-seconds))
 
 ;;; Keymap macros.