From: Glenn Morris <rgm@gnu.org>
Date: Wed, 2 Sep 2009 03:26:30 +0000 (+0000)
Subject: (ecomplete-add-item): In Emacs, use float-time.
X-Git-Tag: emacs-pretest-23.1.90~1518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c62cc3ac0c54f5c0fcef294a4f80cc8ce57bd00d;p=emacs.git

(ecomplete-add-item): In Emacs, use float-time.
---

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index fd9dfa63b6d..c2a22e3230c 100644
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -56,7 +56,9 @@
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
 	(now (string-to-number
-	      (format "%.0f" (time-to-seconds (current-time)))))
+	      (format "%.0f" (if (featurep 'xemacs)
+				 (time-to-seconds (current-time))
+			       (float-time)))))
 	entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))