gnu1987/emacs18.41/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 (leave-dead) "\
Start a server process, killing any existing server first.
Prefix arg means just kill any existing server." (interactive "P") (byte-code "Áˆ…ÆÁ\"ˆÁÇÈ�ˆÁÉÊ�ˆ
…&Ë
@8Ì!)ˆ‚ˆƒ/Á‚HÍÎÁ
#‰ˆÆÏ\"ˆÐÑ\"ˆÒ!ˆÓÔ!‡" [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 start-process "server" server-sentinel set-process-filter server-process-filter process-kill-without-query server-log "Starting server"] 8))

(defun server-process-filter (proc string) (byte-code "Å!ˆÆÇÈ\"=?ƒÁ‚hÉÆ!ÁO‰ˆÆÇÊ\"OCÁÉÆ!ÁO‰ˆÇË\"…PÌÆ!ÉÆ!SOB‰ˆÉÆ!ÁO‰ˆ‚/ˆÍ
\"ˆ
B‰ˆÎÏ
8!ˆÐÑÒ!!*‡" [string nil client filenames server-clients server-log 0 string-match "Client: " match-end " " "[^ ]+ " match-beginning server-visit-files switch-to-buffer 1 message substitute-command-keys "When done with a buffer, type \\[server-edit]."] 14))

(defun server-visit-files (filenames client) "\
Finds FILES and returns the list CLIENT with the buffers nconc'd." (byte-code "Æ	…FŠÇ	@!
…È
!?…ÉÊ
!!ƒ)
qˆËÃÃ\"‚.Ì	@!q)ˆ
@B‰ˆpB‰)ˆ	A‰ˆ‚ˆÍ
\")‡" [client-record filenames obuf t server-buffer-clients client nil get-file-buffer buffer-modified-p file-exists-p buffer-file-name revert-buffer find-file-noselect nconc] 9))

(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 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	…5ÃÄ Å\"ƒ Æ!ˆÇed
ÈP#ˆÉ!‚1Ê …+ËÌ
ÍQ!…1Æ!ˆÎ!)‡" [buffer server-buffer-clients buffer-file-name string= buffer-name "draft" save-buffer write-region "~" kill-buffer buffer-modified-p y-or-n-p "Save file" "? " server-buffer-done] 10))

(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 there is no server process running, one is started and that's all." (interactive) (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))