Mercurial > emacs

comparison lisp/gnus/ecomplete.el @ 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 a9dc0e7c3f2b
children 18c2aea5083c
comparison
equal deleted inserted replaced
104800:31250b83d2bb 104801:a55980608639
54 (setq ecomplete-database (read (current-buffer))))))) 54 (setq ecomplete-database (read (current-buffer)))))))
55 55
56 (defun ecomplete-add-item (type key text) 56 (defun ecomplete-add-item (type key text)
57 (let ((elems (assq type ecomplete-database)) 57 (let ((elems (assq type ecomplete-database))
58 (now (string-to-number 58 (now (string-to-number
59 (format "%.0f" (time-to-seconds (current-time))))) 59 (format "%.0f" (if (featurep 'xemacs)
60 (time-to-seconds (current-time))
61 (float-time)))))
60 entry) 62 entry)
61 (unless elems 63 (unless elems
62 (push (setq elems (list type)) ecomplete-database)) 64 (push (setq elems (list type)) ecomplete-database))
63 (if (setq entry (assoc key (cdr elems))) 65 (if (setq entry (assoc key (cdr elems)))
64 (setcdr entry (list (1+ (cadr entry)) now text)) 66 (setcdr entry (list (1+ (cadr entry)) now text))