| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@105 Alist of displays on which Emacs talk is now running. Each element has the form (DISPLAY FRAME BUFFER). (defvar talk-display-alist nil (#$ . 85)) #@68 Connect to display DISPLAY for the Emacs talk group. (fn DISPLAY) (defalias 'talk-connect #[257 "\300\301\302 !\236A\303!\266\303!\210\304 \207" [display frame-parameters selected-frame talk-add-display talk-update-buffers] 4 (#$ . 237) "sTalk to display: "]) #@74 Connect to the Emacs talk group from the current X display or tty frame. (defalias 'talk #[0 "\300\301 !\211\302=\204 \211\303=\203 \304\305\306 !!\266\202 \307\310!\266\311 \207" [frame-live-p selected-frame t x talk-add-display terminal-name frame-terminal error "Unknown frame type" talk-update-buffers] 4 (#$ . 507) nil]) #@16 (fn DISPLAY) (defalias 'talk-add-display #[257 "\301\"\302\303Q\304\211\203 \305A@!\203 A@\262\202' \306\307BC\"\262\2039 \310\311\3128\211\262!!\204> \313!\262\314\315\316\"\210E\317\"B\211\207" [talk-display-alist assoc "*talk-" "*" nil frame-live-p make-frame-on-display name buffer-name get-buffer 2 get-buffer-create add-to-list delete-frame-functions talk-handle-delete-frame delq] 9 (#$ . 844)]) #@14 (fn FRAME) (defalias 'talk-handle-delete-frame #[257 "\211\205 \211@\211A@=\203 \301\"\302 \210A\266\202\202 \207" [talk-display-alist delq talk-update-buffers] 6 (#$ . 1279)]) #@52 Disconnect this display from the Emacs talk group. (defalias 'talk-disconnect #[0 "\301\302\303 !\236A\304\"\305A@!\210\306\3078!\210\310\"\311 \207" [talk-display-alist display frame-parameters selected-frame assoc delete-frame kill-buffer 2 delq talk-update-buffers] 5 (#$ . 1473) nil]) #@69 Update all the talk frames so that each shows all the talk buffers. (defalias 'talk-update-buffers #[0 "\211\205& \211@A@\301@8\302\303\"\304\"B\262\305\"\266\211A\262\202 \207" [talk-display-alist 2 mapcar #[257 "\3008\207" [2] 3 "\n\n(fn ELT)"] delq talk-split-up-frame] 8 (#$ . 1775)]) #@165 Split FRAME into equal-sized windows displaying the buffers in BUFFERS. Select the first of these windows, displaying the first of the buffers. (fn FRAME BUFFERS) (defalias 'talk-split-up-frame #[514 "\300!G\245\301 \302\303\"\216\304!\210\305\306!!\210\307 \210\310@!\210A\211\262\2032 \311!\210\312\313!\210\202 \305\306!!)\207" [frame-height selected-frame make-closure #[0 "\301\300!\207" [V0 select-frame] 2] select-frame select-window frame-first-window delete-other-windows switch-to-buffer split-window-below other-window 1] 7 (#$ . 2084)]) (provide 'talk)