Mercurial > emacs
comparison lisp/server.el @ 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 | 31242cebf1d3 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 13467:1d69a0ea30ec | 13468:2c8da6b3b9e0 |
|---|---|
| 120 (defun server-log (string) | 120 (defun server-log (string) |
| 121 (if (get-buffer "*server*") | 121 (if (get-buffer "*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) |
| 130 (server-log (message "Server subprocess exited"))) | 130 (server-log (message "Server subprocess exited"))) |
| 131 ((eq (process-status proc) 'signal) | 131 ((eq (process-status proc) 'signal) |