[gnus git] branch master updated: m0-11-68-g59ff3c5 =1= gnus-util.el (gnus-float-time): Don't pass the third argument docstring to `defalias' for XEmacs

       via  59ff3c505c15c9ffebcfa127f928e0882703538f (commit)
      from  75723739287ba519d3cb65f4d7caaffcb662ebd3 (commit)


- Log -----------------------------------------------------------------
commit 59ff3c505c15c9ffebcfa127f928e0882703538f
Author: Katsumi Yamaoka <[email protected]>
Date:   Wed Oct 29 03:26:31 2014 +0000

    gnus-util.el (gnus-float-time): Don't pass the third argument docstring to `defalias' for XEmacs

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 250d2e8..03dadc6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-29  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-util.el (gnus-float-time):
+	Don't pass the third argument docstring to `defalias' for XEmacs.
+
 2014-10-29  Paul Eggert  <[email protected]>
 
 	Simplify use of current-time and friends.
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 15f3aed..fce82db 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -313,12 +313,13 @@ 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.
-(defalias 'gnus-float-time
-  (if (or (featurep 'emacs)
-	  (fboundp 'float-time))
-      'float-time 'time-to-seconds)
+(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)))
 
 ;;; Keymap macros.
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    5 +++++
 lisp/gnus-util.el |   11 ++++++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project