Function: rcirc-debug

rcirc-debug is a byte-compiled function defined in rcirc.el.gz.

Signature

(rcirc-debug PROCESS TEXT)

Documentation

Add an entry to the debug log including PROCESS and TEXT.

Debug text is appended to rcirc-debug-buffer if rcirc-debug-flag is non-nil.

For convenience, the read-only state of the debug buffer is ignored. When the point is at the end of the visible portion of the buffer, it is moved to after the text inserted. Otherwise the point is not moved.

Source Code

;; Defined in /usr/src/emacs/lisp/net/rcirc.el.gz
(defun rcirc-debug (process text)
  "Add an entry to the debug log including PROCESS and TEXT.
Debug text is appended to `rcirc-debug-buffer' if `rcirc-debug-flag'
is non-nil.

For convenience, the read-only state of the debug buffer is ignored.
When the point is at the end of the visible portion of the buffer, it
is moved to after the text inserted.  Otherwise the point is not moved."
  (when rcirc-debug-flag
    (with-current-buffer (get-buffer-create rcirc-debug-buffer)
      (let ((old (point-marker)))
        (set-marker-insertion-type old t)
        (goto-char (point-max))
        (let ((inhibit-read-only t))
          (terpri (current-buffer) t)
          (insert "["
                  (format-time-string "%FT%T ") (process-name process)
                  "] "
                  text))
        (goto-char old)))))