From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 24 Dec 2012 13:28:39 +0000 (+0000)
Subject: lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds
X-Git-Tag: emacs-24.3.90~173^2~7^2~503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24d0bb6be2860a95a00618abf9e6decf166fac55;p=emacs.git

lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ee5d76961b3..1ade749427f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -8,6 +8,7 @@
 	for reuse.
 	(gnus-open-server): Use it to add more tracing.
 	(gnus-finish-retrieve-group-infos): Add backend tracing.
+	(gnus-backend-trace): Also note the elapsed seconds.
 
 2012-12-22  Philipp Haselwarter  <philipp@haselwarter.org>
 
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."