Mercurial > emacs

comparison lisp/server.el @ 41075:9bd3aeb8f5ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-process-filter): Run pore/post-comment-hook before/after visiting the file.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 15 Nov 2001 12:19:08 +0000
parents cb428483fb22
children 49087a9d073e
comparison
equal deleted inserted replaced
41074:d6a61f61aa6c 41075:9bd3aeb8f5ae
282 (setq files 282 (setq files
283 (cons (list arg lineno columnno) 283 (cons (list arg lineno columnno)
284 files)) 284 files))
285 (setq lineno 1) 285 (setq lineno 1)
286 (setq columnno 0)))))) 286 (setq columnno 0))))))
287 (run-hooks 'pre-command-hook)
287 (server-visit-files files client nowait) 288 (server-visit-files files client nowait)
289 (run-hooks 'post-command-hook)
288 ;; CLIENT is now a list (CLIENTNUM BUFFERS...) 290 ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
289 (if (null (cdr client)) 291 (if (null (cdr client))
290 ;; This client is empty; get rid of it immediately. 292 ;; This client is empty; get rid of it immediately.
291 (progn 293 (progn
292 (send-string server-process 294 (send-string server-process