mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(server-log): Record the current time.

Browse Source 
End with newline whenever STRING doesn't end with one.
This commit is contained in:
Richard M. Stallman 1995-11-10 17:01:59 +00:00
parent b883991acc
commit 74c20cd37b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/server.el
View File

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