* lisp/ecomplete.el (ecomplete-add-item): Simplify.

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 9fc3f57833c64312de516f96e9fda16d4afb62ed..fb23ead63f6f5238492ff99c6c9c6ae293f688cb 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -96,7 +96,7 @@ string that was matched."
 (defun ecomplete-add-item (type key text)
   "Add item TEXT of TYPE to the database, using KEY as the identifier."
   (let ((elems (assq type ecomplete-database))
-       (now (string-to-number (format-time-string "%s")))
+       (now (encode-time nil 'integer))
        entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))