From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Nov 2001 12:19:08 +0000 (+0000)
Subject: (server-process-filter): Run pore/post-comment-hook
X-Git-Tag: ttn-vms-21-2-B4~18548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cd04440b5d86bdd2a83b71515b2d6d51e26db82;p=emacs.git

(server-process-filter): Run pore/post-comment-hook
before/after visiting the file.
---

diff --git a/lisp/server.el b/lisp/server.el
index a9aaa69e712..ec7fdafb851 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -284,7 +284,9 @@ Prefix arg means just kill any existing server communications subprocess."
 				  files))
 		      (setq lineno 1)
 		      (setq columnno 0))))))
+	      (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.