diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/gnus-int.el | 11 |
2 files changed, 9 insertions, 3 deletions
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." |