Mercurial > emacs

comparison lisp/server.el @ 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 f3554332993b
children 65d530f613a8
comparison
equal deleted inserted replaced
2865:427eadecebd6 2866:48ddb3600ae6
75 75
76 (defvar server-program "emacsserver" 76 (defvar server-program "emacsserver"
77 "*The program to use as the edit server") 77 "*The program to use as the edit server")
78 78
79 (defvar server-visit-hook nil 79 (defvar server-visit-hook nil
80 "*List of hooks to call when visiting a file for the Emacs server.")
81
82 (defvar server-switch-hook nil
80 "*List of hooks to call when switching to a buffer for the Emacs server.") 83 "*List of hooks to call when switching to a buffer for the Emacs server.")
81 84
82 (defvar server-process nil 85 (defvar server-process nil
83 "the current server process") 86 "the current server process")
84 87
179 (setq lineno 1)))) 182 (setq lineno 1))))
180 (server-visit-files files client) 183 (server-visit-files files client)
181 ;; CLIENT is now a list (CLIENTNUM BUFFERS...) 184 ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
182 (setq server-clients (cons client server-clients)) 185 (setq server-clients (cons client server-clients))
183 (switch-to-buffer (nth 1 client)) 186 (switch-to-buffer (nth 1 client))
187 (run-hooks 'server-switch-hook)
184 (message (substitute-command-keys 188 (message (substitute-command-keys
185 "When done with a buffer, type \\[server-edit]."))))) 189 "When done with a buffer, type \\[server-edit].")))))
186 190
187 (defun server-visit-files (files client) 191 (defun server-visit-files (files client)
188 "Finds FILES and returns the list CLIENT with the buffers nconc'd. 192 "Finds FILES and returns the list CLIENT with the buffers nconc'd.