;ELC   
;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Sun Jun 11 18:37:47 1995
;;; from file /gd/gnu/emacs/19.0/lisp/talk.el
;;; emacs version 19.28.93.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (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 (#$ . 475))
#@54 Connect to display DISPLAY for the Emacs talk group.
(defalias 'talk-connect #[(display) "ÀÁÂ !žAÄ!ˆ)Ä!ˆÅ ‡" [display frame-parameters selected-frame mydisp talk-add-display talk-update-buffers] 3 (#$ . 628) "sTalk to display: "])
(defalias 'talk-add-display #[(display) "À	\n\"†% Ã	ÄQÆ!È	ÅBC\"			E\nB‰+‡" [assoc display talk-display-alist "*talk-" "*" name get-buffer-create buffer make-frame-on-display frame] 4])
#@52 Disconnect this display from the Emacs talk group.
(defalias 'talk-disconnect #[nil "ÀÁÂ !žAÄ\"ÇA@!ˆÈÉ8!ˆÊ\"Ë *‡" [display frame-parameters selected-frame mydisp assoc talk-display-alist elt delete-frame kill-buffer 2 delq talk-update-buffers] 3 (#$ . 1063)])
#@69 Update all the talk frames so that each shows all the talk buffers.
(defalias 'talk-update-buffers #[nil "‰…/ 	@A@Â	@8ÃÄ\"È\"BÉ\"ˆ+	A‰„ Ê)‡" [talk-display-alist tail 2 mapcar #[(elt) "À	8‡" [2 elt] 2] buffers this-buffer frame delq talk-split-up-frame nil] 6 (#$ . 1342)])
#@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) "À	!\nG¥Ã ÆŽÇ	!ˆÈÉ	!!ˆÊ ˆË\n@!ˆ\nA‰ƒ0 Ì!ˆÍÎ!ˆ‚ ÈÉ	!!+‡" [frame-height frame buffers selected-frame old-frame lines-per-buffer ((select-frame old-frame)) select-frame select-window frame-first-window delete-other-windows switch-to-buffer split-window-vertically other-window 1] 3 (#$ . 1641)])