(server-process-filter): Run pre-command-hook,

post-command-hook.

diff --git a/lisp/server.el b/lisp/server.el
index 1e7d51692cb9c83cb3fceee8da1d261d7161cc93..523f0bf7befef628d1631b59fe29945579cf108f 100644 (file)
--- 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.