diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-18 22:15:14 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-18 22:15:14 +0000 |
| commit | 1b7899a5245d30d77bce6176275add3f62f23af3 (patch) | |
| tree | 6813ed2a592e5f2a43979c84184cc80195c1f812 /lisp/server.el | |
| parent | 1f18c48f3a7afe27a859de2044ae8f32ab460818 (diff) | |
| download | emacs-1b7899a5245d30d77bce6176275add3f62f23af3.tar.gz | |
* server.el (server-switch-hook): New hook.
(server-process-filter): Call it.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index e81acbd21ac..f1ab7eacdb0 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -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]."))))) |