From cd39e87f4556991e42ca9a028fc9372f4990a900 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 14 Feb 2001 23:55:05 +0000 Subject: [PATCH] (server-process-filter): Run pre-command-hook, post-command-hook. --- lisp/server.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/server.el b/lisp/server.el index 1e7d51692cb..523f0bf7bef 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -273,7 +273,9 @@ Prefix arg means just kill any existing server communications subprocess." (cons (list arg lineno) files)) (setq lineno 1))))) + (run-hooks 'pre-command-hook) (server-visit-files files client nowait) + (run-hooks 'post-command-hook) ;; CLIENT is now a list (CLIENTNUM BUFFERS...) (if (null (cdr client)) ;; This client is empty; get rid of it immediately. -- 2.39.5