(server-log-time-function): New function.

(server-log): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eadbd4dedb62a03da312888bd84d08a9816b3da6..db2bb83bf38f938161fdfdc88996cf279a0e61b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-21  Juanma Barranquero  <lekktu@gmail.com>
+
+       * server.el (server-log-time-function): New function.
+       (server-log): Use it.
+
 2008-01-21  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/hideif.el: Move defcustoms and defface to start of file.

diff --git a/lisp/server.el b/lisp/server.el
index 8e14ffa382631a9890fad0cf356fc1f9c51957c4..2087af26b10dc476bb6c33b3c43a2175c4588377 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -291,17 +291,20 @@ If NOFRAME is non-nil, let the frames live.  (To be used from
 
       (server-log "Deleted" proc))))
 
+(defvar server-log-time-function 'current-time-string
+  "Function to generate timestamps for the *server* buffer.")
+
 (defun server-log (string &optional client)
   "If a *server* buffer exists, write STRING to it for logging purposes.
 If CLIENT is non-nil, add a description of it to the logged message."
   (when (get-buffer "*server*")
     (with-current-buffer "*server*"
       (goto-char (point-max))
-      (insert (current-time-string)
+      (insert (funcall server-log-time-function)
              (cond
-              ((null client) " ")
-              ((listp client) (format " %s: " (car client)))
-              (t (format " %s: " client)))
+               ((null client) " ")
+               ((listp client) (format " %s: " (car client)))
+               (t (format " %s: " client)))
              string)
       (or (bolp) (newline)))))