Commit 0c40a645 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

close it immediately before recording it.
parent 60ba61bb
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment