;ELC   
;;; compiled by erik@naggum.no on Sun Jan 14 06:48:25 1996
;;; from file /gd/gnu/emacs/19.0/lisp/talk.el
;;; emacs version 19.30.70.6.
;;; 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.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 (#$ . 459))
#@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 (#$ . 612) "sTalk to display: "])
(defalias 'talk-add-display #[(display) "À	\n\"Ä	ÅQÇÇ	ƒ  ÊA@‰	!„* Ë	ÆBC\"	ƒ; ÌÍÎ8‰!!„A Ï!		EÐ\n\"B‰,‡" [assoc display talk-display-alist elt "*talk-" "*" name nil buffer frame frame-live-p make-frame-on-display buffer-name get-buffer 2 get-buffer-create delq] 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 (#$ . 1141) nil])
#@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 (#$ . 1424)])
#@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 (#$ . 1723)])