;ELC ;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Mon Jun 23 15:03:31 1997 ;;; from file /home/fsf/rms/e19/lisp/talk.el ;;; in Emacs version 19.34.94.37 ;;; with bytecomp version 2.29 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 (#$ . 537)) #@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 (#$ . 690) "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 (#$ . 1219) 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 (#$ . 1502)]) #@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 (#$ . 1801)]) (provide 'talk)