;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:21:11 2007
;;; from file /home/cyd/emacs/lisp/talk.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`talk.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@105 Alist of displays on which Emacs talk is now running.
Each element has the form (DISPLAY FRAME BUFFER).
(defvar talk-display-alist nil (#$ . 556))
#@54 Connect to display DISPLAY for the Emacs talk group.
(defalias 'talk-connect #[(display) "\301\302\303 !\236A\304!\210)\304	!\210\305 \207" [mydisp display frame-parameters selected-frame talk-add-display talk-update-buffers] 3 (#$ . 709) "sTalk to display: "])
(defalias 'talk-add-display #[(display) "\306	\"\307\310Q\311\211\n\203 \312\nA@\211!\204$ \313\303BC\"\n\2034 \314\315\316\n8\211!!\2048 \317!\fE\320\n	\"B\211,\207" [display talk-display-alist elt name buffer frame assoc "*talk-" "*" nil frame-live-p make-frame-on-display buffer-name get-buffer 2 get-buffer-create delq] 5])
#@52 Disconnect this display from the Emacs talk group.
(defalias 'talk-disconnect #[nil "\303\304\305 !\236A\306	\"\307\nA@!\210\310\311\n8!\210\312\n	\"\313 *\207" [mydisp talk-display-alist elt display frame-parameters selected-frame assoc delete-frame kill-buffer 2 delq talk-update-buffers] 3 (#$ . 1324) nil])
#@69 Update all the talk frames so that each shows all the talk buffers.
(defalias 'talk-update-buffers #[nil "\211\205* 	@A@\305	@8\306\307\"\310\n\"B\311\f\n\"\210+	A\211\204 \312)\207" [talk-display-alist tail buffers this-buffer frame 2 mapcar #[(elt) "\3018\207" [elt 2] 2] delq talk-split-up-frame nil] 6 (#$ . 1645)])
#@145 Split FRAME into equal-sized windows displaying the buffers in BUFFERS.
Select the first of these windows, displaying the first of the buffers.
(defalias 'talk-split-up-frame #[(frame buffers) "\304!	G\245\305 \306\216\307!\210\310\311!!\210\312 \210\313	@!\210	A\211\2030 \314!\210\315\316!\210\202 \310\311!!+\207" [frame buffers old-frame lines-per-buffer frame-height selected-frame ((select-frame old-frame)) select-frame select-window frame-first-window delete-other-windows switch-to-buffer split-window-vertically other-window 1] 3 (#$ . 1984)])
(provide 'talk)