Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki 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)