# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1005826748 0
# Node ID 9bd3aeb8f5ae191c491732346486f4dd27b7a5f0
# Parent  d6a61f61aa6cc04c9faf19c0537e76759a6944cf
(server-process-filter): Run pore/post-comment-hook
before/after visiting the file.

diff -r d6a61f61aa6c -r 9bd3aeb8f5ae lisp/server.el
--- a/lisp/server.el	Thu Nov 15 11:02:23 2001 +0000
+++ b/lisp/server.el	Thu Nov 15 12:19:08 2001 +0000
@@ -284,7 +284,9 @@
 				  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.