;ELC ;;; Compiled by buildd@lcy01-24.buildd on Tue Sep 19 22:18:15 2017 ;;; from file /build/emacs24-8smh0b/emacs24-24.3+1/debian/build-x/lisp/talk.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@105 Alist of displays on which Emacs talk is now running. Each element has the form (DISPLAY FRAME BUFFER). (defvar talk-display-alist nil (#$ . 544)) #@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 (#$ . 697) "sTalk to display: "]) #@74 Connect to the Emacs talk group from the current X display or tty frame. (defalias 'talk #[nil "\301\302 !\211\303=\204\304=\203\305\306\307\302 !!!\210\202!\310\311!\210)\312 \207" [type frame-live-p selected-frame t x talk-add-display terminal-name frame-terminal error "Unknown frame type" talk-update-buffers] 5 (#$ . 967) nil]) (defalias 'talk-add-display #[(display) "\306 \"\307\310Q\311\211\n\203!\312\nA@!\203!\nA@\202)\313\303 BC\"\n\2039\314\315\316\n8\211!!\204=\317 !\320\321\322\"\210\f E\323\n \"B\211,\207" [display talk-display-alist elt name frame buffer assoc "*talk-" "*" nil frame-live-p make-frame-on-display buffer-name get-buffer 2 get-buffer-create add-to-list delete-frame-functions talk-handle-delete-frame delq] 5]) (defalias 'talk-handle-delete-frame #[(frame) "\304\211\205#\n@\211A@ =\203\305 \"\306 \210\nA\211\204\304*\207" [talk-display-alist d --dolist-tail-- frame nil delq talk-update-buffers] 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 (#$ . 1945) 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 (#$ . 2266)]) #@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-below other-window 1] 3 (#$ . 2605)]) (provide 'talk)