Mercurial > emacs

changeset 2866:48ddb3600ae6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* server.el (server-switch-hook): New hook. (server-process-filter): Call it.
author Jim Blandy <jimb@redhat.com>
date Tue, 18 May 1993 22:15:14 +0000
parents 427eadecebd6
children 5b72eb2483e7
files lisp/server.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Tue May 18 22:07:14 1993 +0000
+++ b/lisp/server.el	Tue May 18 22:15:14 1993 +0000
@@ -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 @@
       ;; 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].")))))