Function: server-log

server-log is a byte-compiled function defined in server.el.gz.

Signature

(server-log STRING &optional CLIENT)

Documentation

If option server-log(var)/server-log(fun) is non-nil, log STRING to server-buffer.

If CLIENT is non-nil, add a description of it to the logged message.

Source Code

;; Defined in /usr/src/emacs/lisp/server.el.gz
(defun server-log (string &optional client)
  "If option `server-log' is non-nil, log STRING to `server-buffer'.
If CLIENT is non-nil, add a description of it to the logged message."
  (when server-log
    (with-current-buffer (get-buffer-create server-buffer)
      (goto-char (point-max))
      (insert (funcall server-log-time-function)
	      (cond
	       ((null client) " ")
	       ((listp client) (format " %s: " (car client)))
	       (t (format " %s: " client)))
	      string)
      (or (bolp) (newline)))))