From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Nov 1995 17:01:59 +0000 (+0000)
Subject: (server-log): Record the current time.
X-Git-Tag: emacs-19.34~2392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74c20cd37b418038a8d2ab6906bfe81af6961fac;p=emacs.git

(server-log): Record the current time.
End with newline whenever STRING doesn't end with one.
---

diff --git a/lisp/server.el b/lisp/server.el
index 5097f987963..888cda5137f 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -122,8 +122,8 @@ by the programs that invoke the emacs server.")
       (save-excursion
 	(set-buffer "*server*")
 	(goto-char (point-max))
-	(insert string)
-	(or (bobp) (newline)))))
+	(insert (current-time-string) " " string)
+	(or (bolp) (newline)))))
 
 (defun server-sentinel (proc msg)
   (cond ((eq (process-status proc) 'exit)