| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/talk.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:31 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/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 (#$ . 548)) #@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 (#$ . 701) "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 (#$ . 971) 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 (#$ . 1949) 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 (#$ . 2270)]) #@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 (#$ . 2609)]) (provide 'talk)