[Emacs-diffs] emacs/lisp/gnus ecomplete.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/02 03:26:31

Modified files:
        lisp/gnus      : ecomplete.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ecomplete.el?cvsroot=emacs&r1=1.6&r2=1.7

Patches:
Index: ecomplete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ecomplete.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- ecomplete.el        5 Jan 2009 03:21:52 -0000       1.6
+++ ecomplete.el        2 Sep 2009 03:26:30 -0000       1.7
@@ -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))