(server-process-filter): Run pore/post-comment-hook

before/after visiting the file.

(server-process-filter): Run pore/post-comment-hook
before/after visiting the file.
1cd04440 · Stefan Monnier · 34e5d0af · 1cd04440
Commit 1cd04440 authored Nov 15, 2001 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/server.el lisp/server.el +2 -0

No files found.
--- 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.