diff options
| author | Paul Eggert | 2019-02-09 19:28:27 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-02-09 19:29:02 -0800 |
| commit | f8e9da8bb6424215924b0de008b87c0c28fa930a (patch) | |
| tree | 8f3ecb42173d8ec7caf39b68fecfde633e39116f | |
| parent | 57646401f1cb3e09169da5e768e74d4de9d19aed (diff) | |
| download | emacs-f8e9da8bb6424215924b0de008b87c0c28fa930a.tar.gz emacs-f8e9da8bb6424215924b0de008b87c0c28fa930a.zip | |
* lisp/ecomplete.el (ecomplete-add-item): Simplify.
| -rw-r--r-- | lisp/ecomplete.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el index 9fc3f57833c..fb23ead63f6 100644 --- a/lisp/ecomplete.el +++ b/lisp/ecomplete.el | |||
| @@ -96,7 +96,7 @@ string that was matched." | |||
| 96 | (defun ecomplete-add-item (type key text) | 96 | (defun ecomplete-add-item (type key text) |
| 97 | "Add item TEXT of TYPE to the database, using KEY as the identifier." | 97 | "Add item TEXT of TYPE to the database, using KEY as the identifier." |
| 98 | (let ((elems (assq type ecomplete-database)) | 98 | (let ((elems (assq type ecomplete-database)) |
| 99 | (now (string-to-number (format-time-string "%s"))) | 99 | (now (encode-time nil 'integer)) |
| 100 | entry) | 100 | entry) |
| 101 | (unless elems | 101 | (unless elems |
| 102 | (push (setq elems (list type)) ecomplete-database)) | 102 | (push (setq elems (list type)) ecomplete-database)) |