Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(server-buffer-done): Pause between client commands,

Browse source 
but not after the last one.
This commit is contained in:
Richard M. Stallman 1995-08-10 22:07:41 +00:00
parent 25ef19c5f4
commit 08c229837b
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/server.el
View file

@ -248,6 +248,7 @@ or nil. KILLED is t if we killed BUFFER (because it was a temp file)."
(let ((running (eq (process-status server-process) 'run))
(next-buffer nil)
(killed nil)
(first t)
(old-clients server-clients))
(while old-clients
(let ((client (car old-clients)))
@ -266,12 +267,13 @@ or nil. KILLED is t if we killed BUFFER (because it was a temp file)."
(if (cdr client) nil
(if running
(progn
(send-string server-process
(format "Close: %s Done\n" (car client)))
(server-log (format "Close: %s Done\n" (car client)))
;; Don't send emacsserver two commands in close succession.
;; It cannot handle that.
(sit-for 1)))
(or first (sit-for 1))
(setq first nil)
(send-string server-process
(format "Close: %s Done\n" (car client)))
(server-log (format "Close: %s Done\n" (car client)))))
(setq server-clients (delq client server-clients))))
(setq old-clients (cdr old-clients)))
(if (and (bufferp buffer) (buffer-name buffer))