4.3BSD-Reno/contrib/lib/emacs/lisp/server.elc

(defvar server-program "server" "\
*The program to use as the edit server")

(defvar server-process nil "\
the current server process")

(defvar server-clients nil "\
List of current server clients.
Each element is (CLIENTID FILES...) where CLIENTID is a string
that can be given to the server process to identify a client.
When a buffer is marked as \"done\", it is removed from this list.")

(defvar server-buffer-clients nil "\
List of clientids for clients requesting editing of current buffer.")

(make-variable-buffer-local (quote server-buffer-clients))

(setq-default server-buffer-clients nil)

(or (assq (quote server-buffer-clients) minor-mode-alist) (setq minor-mode-alist (cons (quote (server-buffer-clients " Server")) minor-mode-alist)))

(defun server-log (string) (byte-code "ÁÂ!…ŠÂqˆdbˆcˆo†Ã )‡" [string get-buffer "*server*" newline] 3))

(defun server-sentinel (proc msg) (byte-code "Á!Â=ƒÃÄÅ!!‚Á!Æ=…ÃÄÇ!!‡" [proc process-status exit server-log message "Server subprocess exited" signal "Server subprocess killed"] 7))

(defun server-start (&optional leave-dead) "\
Allow this Emacs process to be a server for client processes.
This starts a server communications subprocess through which
client \"editors\" can send your editing commands to this Emacs job.
To use the server, set up the program `etc/emacsclient' in the
Emacs distribution as your standard \"editor\".

Prefix arg means just kill any existing server communications subprocess." (interactive "P") (byte-code "Áˆ…ÆÁ\"ˆÁÇÈ�ˆÁÉÊ�ˆ
…&Ë
@8Ì!)ˆ‚ˆƒ/Á‚N…8ÍÎÏ!!ˆÐÑÁ
#‰ˆÆÒ\"ˆÓÔ\"ˆÕ!‡" [server-process nil server-clients buffer leave-dead server-program set-process-sentinel (byte-code "Á!‡" [server-process delete-process] 2) ((error (byte-code "À‡" [nil] 1))) (byte-code "ÀÁ!‡" [delete-file "~/.emacs_server"] 2) ((error (byte-code "À‡" [nil] 1))) 1 server-buffer-done server-log message "Restarting server" start-process "server" server-sentinel set-process-filter server-process-filter process-kill-without-query] 9))

(defun server-process-filter (proc string) (byte-code "Ç!ˆÈÉÊ\"=?ƒÁ‚‡ËÈ!ÁO‰ˆÈÉÌ\"OCÁÍËÈ!ÁO‰ˆÉÎ\"…mÏÈ!ËÈ!SOËÈ!ÁO‰ˆÉÐ
\"ƒ]Ñ
ÍÁO!‰‚h
DB‰ˆÍ‰)ˆ‚1ˆÒ
\"ˆ
B‰ˆÓÍ
8!ˆÔÕÖ!!+‡" [string nil client files lineno arg server-clients server-log 0 string-match "Client: " match-end " " 1 "[^ ]+ " match-beginning "\\`\\+[0-9]+\\'" read server-visit-files switch-to-buffer message substitute-command-keys "When done with a buffer, type \\[server-edit]."] 16))

(defun server-visit-files (files client) "\
Finds FILES and returns the list CLIENT with the buffers nconc'd.
FILES is an alist whose elements are (FILENAME LINENUMBER)." (byte-code "Å	…gŠ	@@È
!…qƒAÉ
!ƒ2Ê!?†(Ë!…/ÌÄÅ\"‚>ÍÎ
ÏQ!…>Ð
!‚EÑ
!q*ˆÒÓ	@8!ˆ@B‰ˆpB‰)ˆ	A‰ˆ‚ˆÔ\")‡" [client-record files filen obuf t nil server-buffer-clients client get-file-buffer file-exists-p verify-visited-file-modtime buffer-modified-p revert-buffer y-or-n-p "File no longer exists: " ", write buffer to file? " write-file find-file-noselect goto-line 1 nconc] 12))

(defun server-buffer-done (buffer) "\
Mark BUFFER as \"done\" for its client(s).
Buries the buffer, and returns another server buffer
as a suggestion for what to select next." (byte-code "É	!Ê=Ã
…Y@
†Ë>8‰ˆÌ\"ˆAƒ1ÂO…GÍ	ÎÏ@\"\"ˆÐÎÏ@\"!ˆÌ
\"‰)ˆA‰ˆ‚
ˆÑ!…kŠqˆÃ‰)ˆÒ!ˆ
+‡" [running server-process next-buffer nil old-clients server-clients client buffer server-buffer-clients process-status run 1 delq send-string format "Close: %s Done
" server-log buffer-name bury-buffer] 10))

(defun mh-draft-p (buffer) "\
Return non-nil if this BUFFER is an mh <draft> file.
Since MH deletes draft *BEFORE* it is edited, the server treats them specially." (byte-code "ÁÂ!Ã\"‡" [buffer string= buffer-name "draft"] 4))

(defun server-done nil "\
Offer to save current buffer, mark it as \"done\" for clients,
bury it, and return a suggested buffer to select next." (byte-code "p	…2Ã!ƒÄ ˆÅed
ÆP#ˆÇ!‚.È …(ÉÊ
ËQ!….Ä!ˆÌ!)‡" [buffer server-buffer-clients buffer-file-name mh-draft-p save-buffer write-region "~" kill-buffer buffer-modified-p y-or-n-p "Save file" "? " server-buffer-done] 9))

(defun server-edit (&optional arg) "\
Switch to next server editing buffer; say \"Done\" for current buffer.
If a server buffer is current, it is marked \"done\" and optionally saved.
MH <draft> files are always saved and backed up, no questions asked.
When all of a client's buffers are marked as \"done\", the client is notified.

If invoked with a prefix argument, or if there is no server process running, 
starts server process and that is all.  Invoked by \\[server-edit]." (interactive "P") (byte-code "ˆ†	?†Ã	!Ä>ƒÅÂ!‚ÆÇ !‡" [arg server-process nil process-status (signal exit) server-start server-switch-buffer server-done] 5))

(defun server-switch-buffer (next-buffer) "\
Switch to another buffer, preferably one that has a client.
Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it." (byte-code "ƒÂ!…
Ã!ƒÄ!‚ÅÆ!!‚/	ƒ+ÅÇ	@8!‚/ÄÈ !‡" [next-buffer server-clients bufferp buffer-name switch-to-buffer server-switch-buffer server-buffer-done 1 other-buffer] 9))

(global-set-key "#" (quote server-edit))