[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111633: lisp/gnus/gnus-int.el (gnus-
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111633: lisp/gnus/gnus-int.el (gnus-backend-trace): Honour gnus-backend-trace |
Date: |
Wed, 30 Jan 2013 22:45:32 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111633
author: Christopher Schmidt <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-01-30 22:45:32 +0000
message:
lisp/gnus/gnus-int.el (gnus-backend-trace): Honour gnus-backend-trace
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-int.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-01-30 10:43:40 +0000
+++ b/lisp/gnus/ChangeLog 2013-01-30 22:45:32 +0000
@@ -1,5 +1,8 @@
2013-01-30 Christopher Schmidt <address@hidden>
+ * gnus-int.el (gnus-backend-trace-elapsed): New variable.
+ (gnus-backend-trace): Honour gnus-backend-trace.
+
* mml.el (mml-insert-part): Insert closing tag.
* mm-decode.el (mm-save-part): Handle invalid read-file-name results.
=== modified file 'lisp/gnus/gnus-int.el'
--- a/lisp/gnus/gnus-int.el 2013-01-02 16:13:04 +0000
+++ b/lisp/gnus/gnus-int.el 2013-01-30 22:45:32 +0000
@@ -248,18 +248,20 @@
'denied))
(defvar gnus-backend-trace nil)
+(defvar gnus-backend-trace-elapsed nil)
(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 " %.2fs %s %S\n"
- (if (numberp gnus-backend-trace)
- (- (float-time) gnus-backend-trace)
- 0)
- type form))
- (setq gnus-backend-trace (float-time))))
+ (when gnus-backend-trace
+ (with-current-buffer (get-buffer-create "*gnus trace*")
+ (buffer-disable-undo)
+ (goto-char (point-max))
+ (insert (format-time-string "%H:%M:%S")
+ (format " %.2fs %s %S\n"
+ (if (numberp gnus-backend-trace-elapsed)
+ (- (float-time) gnus-backend-trace-elapsed)
+ 0)
+ type form))
+ (setq gnus-backend-trace-elapsed (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 r111633: lisp/gnus/gnus-int.el (gnus-backend-trace): Honour gnus-backend-trace,
Katsumi Yamaoka <=