From: Dave Love <fx@gnu.org>
Date: Wed, 14 Feb 2001 23:55:05 +0000 (+0000)
Subject: (server-process-filter): Run pre-command-hook,
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd39e87f4556991e42ca9a028fc9372f4990a900;p=emacs.git

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

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.