;;; Source file: /usr/local/lib/jade/3.2/lisp/server.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:52 1994
;;; Jade 3.2

(provide (quote server))

(defvar server-open-window nil 75518)

(defun server-open-file (file line-number) 75696 (jade-byte-code "DII01	F!ÿ 	F!ÿ 
HI~Haü ,	û Clü 8
û CJü Bû CIF H¶	H
	HI	G¶HH±
G±HHE" [win buf get-file-buffer file open-file server-reply 10 server-open-window other other-window current-window open-window goto-buffer goto-char pos 0 line-number message format "Client file `%s'." add-hook kill-buffer-hook server-file-kill] 6))

(defun server-file-kill (buf) (jade-byte-code "	þ I		HJ" [server-reply buf message format "Client file `%s' finished." buffer-file-name] 6))

(defun server-close-file nil 75892 (interactive) (jade-byte-code "ü 
HJû 	" [server-reply remove-hook kill-buffer-hook server-file-kill format "Client file `%s' replied to." buffer-file-name error "This buffer has no client!"] 4))
