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) |