Commit 1b7899a5 authored by Jim Blandy's avatar Jim Blandy
Browse files

* server.el (server-switch-hook): New hook.

	(server-process-filter): Call it.
parent 1f18c48f
......@@ -77,6 +77,9 @@
"*The program to use as the edit server")
(defvar server-visit-hook nil
"*List of hooks to call when visiting a file for the Emacs server.")
(defvar server-switch-hook nil
"*List of hooks to call when switching to a buffer for the Emacs server.")
(defvar server-process nil
......@@ -181,6 +184,7 @@ Prefix arg means just kill any existing server communications subprocess."
;; CLIENT is now a list (CLIENTNUM BUFFERS...)
(setq server-clients (cons client server-clients))
(switch-to-buffer (nth 1 client))
(run-hooks 'server-switch-hook)
(message (substitute-command-keys
"When done with a buffer, type \\[server-edit].")))))
......
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