From c62cc3ac0c54f5c0fcef294a4f80cc8ce57bd00d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Sep 2009 03:26:30 +0000 Subject: [PATCH] (ecomplete-add-item): In Emacs, use float-time. --- lisp/gnus/ecomplete.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.39.5