Function: gnus-backend-trace

gnus-backend-trace is a byte-compiled function defined in gnus-int.el.gz.

Signature

(gnus-backend-trace TYPE FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-int.el.gz
(defun gnus-backend-trace (type form)
  (when gnus-backend-trace
    (with-current-buffer (gnus-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
			   (time-since gnus-backend-trace-elapsed))
			0)
		      type form))
      (setq gnus-backend-trace-elapsed (float-time)))))