Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages 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
Show stats 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."