[gnus git] branch master updated: m0-11-69-gfa34413 =1= gnus-util.el (gnus-float-time): Use 2-arg defalias, since XEmacs 21.4 doesn't support 3-arg
Katsumi <[email protected]> Wed, 29 Oct 2014 05:42:52 +0100
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via fa34413ef06821fe23bb19472096bace0f8b2083 (commit)
from 59ff3c505c15c9ffebcfa127f928e0882703538f (commit)
- Log -----------------------------------------------------------------
commit fa34413ef06821fe23bb19472096bace0f8b2083
Author: Paul Eggert <[email protected]>
Date: Wed Oct 29 04:42:30 2014 +0000
gnus-util.el (gnus-float-time): Use 2-arg defalias, since XEmacs 21.4 doesn't support 3-arg
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03dadc6..250d2e8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,3 @@
-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 fce82db..526aa77 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -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.
-----------------------------------------------------------------------
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, 4 insertions(+), 12 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