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

(server-log): Use it.

2 files changed, 12 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eadbd4dedb6..db2bb83bf38 100644
--- 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 8e14ffa3826..2087af26b10 100644
--- 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)))))