Mercurial > emacs

changeset 104801:a55980608639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ecomplete-add-item): In Emacs, use float-time.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Sep 2009 03:26:30 +0000
parents 31250b83d2bb
children 0b94fa0fdedb
files lisp/gnus/ecomplete.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ecomplete.el	Wed Sep 02 03:24:46 2009 +0000
+++ b/lisp/gnus/ecomplete.el	Wed Sep 02 03:26:30 2009 +0000
@@ -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))