diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2012-12-24 13:28:39 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-24 13:28:39 +0000 |
| commit | 24d0bb6be2860a95a00618abf9e6decf166fac55 (patch) | |
| tree | 86a5ef70d9eb98d0690c694dcba538c5e2325db0 /lisp/gnus/gnus-int.el | |
| parent | 2944d406dbf0512368ce0c9de36f347ccbae289b (diff) | |
| download | emacs-24d0bb6be2860a95a00618abf9e6decf166fac55.tar.gz | |
lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index b69229965a7..ea887b27cf9 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -252,9 +252,14 @@ If it is down, start it up (again)." (defun gnus-backend-trace (type form) (with-current-buffer (get-buffer-create "*gnus trace*") (buffer-disable-undo) - (goto-char (point-max)) - (insert (format-time-string "%H:%M:%S") - (format " %s %S\n" type form)))) + (goto-char (point-max)) + (insert (format-time-string "%H:%M:%S") + (format " %.2fs %s %S\n" + (if (numberp gnus-backend-trace) + (- (float-time) gnus-backend-trace) + 0) + type form)) + (setq gnus-backend-trace (float-time)))) (defun gnus-open-server (gnus-command-method) "Open a connection to GNUS-COMMAND-METHOD." |