;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:11 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/talk.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 (#$ . 611)) #@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 (#$ . 764) "sTalk to display: "]) (defalias 'talk-add-display #[(display) "\306 \"\307\310Q\311\311\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] 4]) #@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 (#$ . 1379) 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) "\3018\207" [elt 2] 2] delq talk-split-up-frame nil] 6 (#$ . 1700)]) #@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 (#$ . 2039)]) (provide 'talk)