diff options
| author | Richard M. Stallman | 1995-11-10 17:01:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-10 17:01:59 +0000 |
| commit | 74c20cd37b418038a8d2ab6906bfe81af6961fac (patch) | |
| tree | ee8d089be01c991eb378bc96e71decb0142832e4 | |
| parent | b883991acc7f34802dbc9fde19f2e195e56ea92e (diff) | |
| download | emacs-74c20cd37b418038a8d2ab6906bfe81af6961fac.tar.gz emacs-74c20cd37b418038a8d2ab6906bfe81af6961fac.zip | |
(server-log): Record the current time.
End with newline whenever STRING doesn't end with one.
| -rw-r--r-- | lisp/server.el | 4 |
1 files changed, 2 insertions, 2 deletions
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.") | |||
| 122 | (save-excursion | 122 | (save-excursion |
| 123 | (set-buffer "*server*") | 123 | (set-buffer "*server*") |
| 124 | (goto-char (point-max)) | 124 | (goto-char (point-max)) |
| 125 | (insert string) | 125 | (insert (current-time-string) " " string) |
| 126 | (or (bobp) (newline))))) | 126 | (or (bolp) (newline))))) |
| 127 | 127 | ||
| 128 | (defun server-sentinel (proc msg) | 128 | (defun server-sentinel (proc msg) |
| 129 | (cond ((eq (process-status proc) 'exit) | 129 | (cond ((eq (process-status proc) 'exit) |