mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(server-process-filter): If a client visits no buffers,

Browse source 
close it immediately before recording it.
This commit is contained in:
Karl Heuer 1999-08-16 03:15:11 +00:00
parent 60ba61bb3b
commit 0c40a645af
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/server.el
View file

@ -258,12 +258,19 @@ Prefix arg means just kill any existing server communications subprocess."
(setq lineno 1)))))
(server-visit-files files client nowait)
;; CLIENT is now a list (CLIENTNUM BUFFERS...)
(or nowait
(setq server-clients (cons client server-clients)))
(server-switch-buffer (nth 1 client))
(run-hooks 'server-switch-hook)
(message (substitute-command-keys
"When done with a buffer, type \\[server-edit]")))))))
(if (null (cdr client))
;; This client is empty; get rid of it immediately.
(progn
(send-string server-process
(format "Close: %s Done\n" (car client)))
(server-log (format "Close empty client: %s Done\n" (car client))))
;; We visited some buffer for this client.
(or nowait
(setq server-clients (cons client server-clients)))
(server-switch-buffer (nth 1 client))
(run-hooks 'server-switch-hook)
(message (substitute-command-keys
"When done with a buffer, type \\[server-edit]"))))))))
;; Save for later any partial line that remains.
(setq server-previous-string string))