%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/talk.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 409))
#@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 (#$ . 562) "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 !!\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] 4 (#$ . 832) nil])
(defalias 'talk-add-display #[(display) "\306	\"\307\310Q\311\211\n\203!\312\nA@!\203!\nA@\202)\313\303BC\"\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 (#$ . 1805) 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 (#$ . 2126)])
#@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 #[nil "\301!\207" [old-frame select-frame] 2] select-frame select-window frame-first-window delete-other-windows switch-to-buffer split-window-below other-window 1] 3 (#$ . 2465)])
(provide 'talk)

Zerion Mini Shell 1.0