Mercurial > emacs
changeset 13468:2c8da6b3b9e0
(server-log): Record the current time.
End with newline whenever STRING doesn't end with one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 17:01:59 +0000 |
| parents | 1d69a0ea30ec |
| children | 5bda9e4d85eb |
| files | lisp/server.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Fri Nov 10 16:46:41 1995 +0000 +++ b/lisp/server.el Fri Nov 10 17:01:59 1995 +0000 @@ -122,8 +122,8 @@ (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)