diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:26:30 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:26:30 +0000 |
| commit | c62cc3ac0c54f5c0fcef294a4f80cc8ce57bd00d (patch) | |
| tree | eeac5a70970037b8e9fb9c6b43fac64020cfdfbd | |
| parent | e402f45280fc15566e47b9ad29f786a071f0bb30 (diff) | |
| download | emacs-c62cc3ac0c54f5c0fcef294a4f80cc8ce57bd00d.tar.gz | |
(ecomplete-add-item): In Emacs, use float-time.
| -rw-r--r-- | lisp/gnus/ecomplete.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |