[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111319: lisp/gnus/gnus-int.el (gnus-
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111319: lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds |
Date: |
Mon, 24 Dec 2012 13:28:39 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111319
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2012-12-24 13:28:39 +0000
message:
lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-int.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-12-24 04:21:58 +0000
+++ b/lisp/gnus/ChangeLog 2012-12-24 13:28:39 +0000
@@ -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 <address@hidden>
=== modified file 'lisp/gnus/gnus-int.el'
--- a/lisp/gnus/gnus-int.el 2012-12-23 12:45:01 +0000
+++ b/lisp/gnus/gnus-int.el 2012-12-24 13:28:39 +0000
@@ -252,9 +252,14 @@
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111319: lisp/gnus/gnus-int.el (gnus-backend-trace): Also note the elapsed seconds,
Katsumi Yamaoka <=