martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Lars Ingebrigtsen
2012-12-24 13:28:39 +00:00
committed by Katsumi Yamaoka
parent 2944d406db
commit 24d0bb6be2
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/gnus/ChangeLog
View File

@@ -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>

11
lisp/gnus/gnus-int.el
View File

@@ -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."