diff options
Diffstat (limited to 'lisp/gnus/ecomplete.el')
| -rw-r--r-- | lisp/gnus/ecomplete.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el index c2a22e3230c..ece8f2deff4 100644 --- a/lisp/gnus/ecomplete.el +++ b/lisp/gnus/ecomplete.el @@ -27,6 +27,11 @@ (eval-when-compile (require 'cl)) +(eval-when-compile + (unless (fboundp 'with-no-warnings) + (defmacro with-no-warnings (&rest body) + `(progn ,@body)))) + (defgroup ecomplete nil "Electric completion of email addresses and the like." :group 'mail) @@ -56,9 +61,11 @@ (defun ecomplete-add-item (type key text) (let ((elems (assq type ecomplete-database)) (now (string-to-number - (format "%.0f" (if (featurep 'xemacs) - (time-to-seconds (current-time)) - (float-time))))) + (format "%.0f" (if (and (fboundp 'float-time) + (subrp (symbol-function 'float-time))) + (float-time) + (with-no-warnings + (time-to-seconds (current-time))))))) entry) (unless elems (push (setq elems (list type)) ecomplete-database)) |