Actualizado el Readme

[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-rtt.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(eval-after-load "jabber-disco" #[0 "\300\301!\207" [jabber-disco-advertise-feature "urn:xmpp:rtt:0"] 2])
(defvar jabber-rtt-ewoc-node nil)
(make-variable-buffer-local 'jabber-rtt-ewoc-node)
(defvar jabber-rtt-last-seq nil)
(make-variable-buffer-local 'jabber-rtt-last-seq)
(defvar jabber-rtt-message nil)
(make-variable-buffer-local 'jabber-rtt-message)
(defvar jabber-rtt-pending-events nil)
(make-variable-buffer-local 'jabber-rtt-pending-events)
(defvar jabber-rtt-timer nil)
(byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local jabber-rtt-timer eval-after-load "jabber-core" #[0 "\300\301\302\303#\207" [add-to-list jabber-message-chain jabber-rtt-handle-message t] 4]] 3)
#@20 

(fn JC XML-DATA)\1f
(defalias 'jabber-rtt-handle-message #[514 "\306\ 1!?\205\302\0\307\310\ 2\311\ 1:\205\14\0\312\ 2\ 2\"\266\202!!\205\302\0r\310\ 1\311\ 1:\205(\0\312\ 2\ 2\"\266\202!q\210\313\ 1\314\"\313\ 2\315\"\ 1\205F\0\ 1\316\ 1:\205D\0\312\ 2\ 2\"\266\202\ 2\205[\0\ 2\317\ 1:\205U\0\312\ 2\ 2\"\266\202\206[\0\320\ 3\205m\0\ 3\211AA\211\321\232?\205k\0\211\266\202\322\18\ 3\204y\0\ 1\323\230\203~\0\324 \202\276\0\ 1\325\235\203\234\0\324 \210\326	\327\330D\"\12\331\ 3!\13\332\14\333\15\334\ 1!\202\276\0\ 1\320\230\205\276\0\v\203\271\0\vT\331\ 4!\232\203\271\0\331\ 3!\13\334\ 1!\202\276\0\335\336\ 4\v#)\266\205)\207" [inhibit-read-only jabber-chat-ewoc jabber-rtt-ewoc-node jabber-rtt-last-seq jabber-rtt-message jabber-rtt-pending-events jabber-muc-message-p get-buffer jabber-chat-get-buffer from xml-get-attribute-or-nil jabber-xml-path (("urn:xmpp:rtt:0" . "rtt")) (body) seq event "edit" ((#1="")) t "cancel" jabber-rtt--reset ("new" "reset") ewoc-enter-last :notice "[typing...]" string-to-number #1# nil jabber-rtt--enqueue-actions message "out of sync! %s vs %s"] 11 (#$ . 782)])
(defalias 'jabber-rtt--reset #[0 "\b\203	\0\306	\b\"\210\307\n!\203\13\0\310\n!\210\311\211\10\13\311\211\14\15\311\211\12\207" [jabber-rtt-ewoc-node jabber-chat-ewoc jabber-rtt-timer jabber-rtt-last-seq jabber-rtt-message jabber-rtt-pending-events ewoc-delete timerp cancel-timer nil] 4])
#@20 

(fn NEW-ACTIONS)\1f
(defalias 'jabber-rtt--enqueue-actions #[257 "\302\303\b\ 3\"!\10	?\205\ f\0\304p!\207" [jabber-rtt-pending-events jabber-rtt-timer jabber-rtt--fix-waits append jabber-rtt--process-actions] 5 (#$ . 2064)])
#@15 

(fn BUFFER)\1f
(defalias 'jabber-rtt--process-actions #[257 "r\211q\210\306\10\3072\v\ 1	\205\n\ 1	\211A\11\242\211\211<\205\e\0\211@\262\ 1\211\310=\203t\0\ 1\311\ 1:\205.\0\312\ 2\ 2\"\266\202\211\203:\0\313\ 1!\202<\0\nG\211\314]\262\ 1\211\nG^\262\ 1\ 3\211AA\211\315\232?\205S\0\211\266\202@\316\n\ 3\211\ 4$\12\210\317\v\320\321\nPD\"\210\310\1c\322\r\v\"\210)\266\ 4\202\n\0\211\323=\203\342\0\ 1\311\ 1:\205\205\0\312\ 2\ 2\"\266\202\211\203\221\0\313\ 1!\202\223\0\nG\ 3\324\ 1:\205\236\0\312\ 2\ 2\"\266\202\211\203\252\0\313\ 1!\202\253\0\325\ 2\314]\262\ 3\ 2\nG^\262\ 3\211\314]\262\ 1\211\ 3^\262\ 1\ 2\ 1Z\316\n\ 2\ 6\ 6\326$\12\210\317\v\320\321\nPD\"\210\310\1c\322\r\v\"\210)\266\ 6\202\n\0\211\327=\203\ 5\ 1\330\313\ 3\324\ 1:\205\365\0\312\ 2\ 2\"\266\202!\331\245\306\332\ 6\ 6$\10\333\307\306\"\210\266\ 2\202\n\00)\207" [jabber-rtt-timer jabber-rtt-pending-events jabber-rtt-message jabber-rtt-ewoc-node inhibit-read-only jabber-chat-ewoc nil wait t p xml-get-attribute-or-nil string-to-number 0 ((#1="")) cl--set-substring ewoc-set-data :notice "[typing...] " ewoc-invalidate e n 1 #1# w run-with-timer 1000.0 jabber-rtt--process-actions throw] 13 (#$ . 2287)])
#@16 

(fn ACTIONS)\1f
(defalias 'jabber-rtt--fix-waits #[257 "\300\ 1\211\203<\0\211@\211\211<\205\10\0\211@\262\ 1\301=\2035\0\211\302\ 1:\205\"\0\303\ 2\ 2\"\266\202\304\ 1!\262\ 1\211\300Y\2034\0\ 3\ 1\\\262\ 4\210\ 1A\266\202\202\ 2\0\210\211\305X\203E\0\ 1\207\306\ 1\245\307\310\311\ 3\"\ 4\"\207" [0 w n xml-get-attribute-or-nil string-to-number 700 700.0 mapcar make-closure #[257 "\211\211<\205\b\0\211@\262\ 1\301=\2033\0\211\302\ 1:\205\1a\0\303\ 2\ 2\"\266\202\304\ 1!\262\ 1\211\305]\262\ 1\301\302\306\300\ 4_!BC\307BB\207\207" [V0 w n xml-get-attribute-or-nil string-to-number 0 number-to-string (nil)] 7 "\n\n(fn ACTION)"]] 9 (#$ . 3348)])
(defvar jabber-rtt-send-timer nil)
(make-variable-buffer-local 'jabber-rtt-send-timer)
(defvar jabber-rtt-send-seq nil)
(make-variable-buffer-local 'jabber-rtt-send-seq)
(defvar jabber-rtt-outgoing-events nil)
(make-variable-buffer-local 'jabber-rtt-outgoing-events)
(defvar jabber-rtt-send-last-timestamp nil)
(make-variable-buffer-local 'jabber-rtt-send-last-timestamp)
#@109 Non-nil if Jabber-Rtt-Send mode is enabled.
Use the command `jabber-rtt-send-mode' to change this variable.\1f
(defvar jabber-rtt-send-mode nil (#$ . 4313))
(make-variable-buffer-local 'jabber-rtt-send-mode)
#@768 Show text to recipient as it is being typed.
This lets the recipient see every change made to the message up
until it's sent.  The recipient's client needs to implement
XEP-0301, In-Band Real Time Text.

This is a minor mode.  If called interactively, toggle the
`Jabber-Rtt-Send mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `jabber-rtt-send-mode'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

(fn &optional ARG)\1f
(defalias 'jabber-rtt-send-mode #[256 "\306 \ 1\307=\203\r\0\b?\202\1d\0\ 1\247\203\1c\0\ 1\310W\203\1c\0\311\202\1d\0\312\10\313\301!\2031\0\314\300	\"\11\b\2031\0\300	B\11\b\204G\0\315\316\317\312#\210\315\320\321\312#\210\322 \210\202u\0\323\324!\204Q\0\325\326!\210\327\n!\203[\0\330\n!\210\311\211\12\13\311\211\14\15\331\311!\210\332\316\317\311\312$\210\332\320\321\311\312$\210\333\334\b\203\7f\0\335\202\200\0\336\"\210\337\340!\203\242\0\306 \203\224\0\211\306 \232\203\242\0\341\342\b\203\236\0\343\202\237\0\344\345#\210\210\346 \210\b\207" [jabber-rtt-send-mode local-minor-modes jabber-rtt-send-timer jabber-rtt-send-seq jabber-rtt-outgoing-events jabber-rtt-send-last-timestamp current-message toggle 1 nil t boundp delq remove-hook after-change-functions jabber-rtt--queue-update jabber-chat-send-hooks jabber-rtt--message-sent jabber-rtt--cancel-send derived-mode-p jabber-chat-mode error "Real Time Text only makes sense in chat buffers" timerp cancel-timer jabber-rtt--send-current-text add-hook run-hooks jabber-rtt-send-mode-hook jabber-rtt-send-mode-on-hook jabber-rtt-send-mode-off-hook called-interactively-p any message "Jabber-Rtt-Send mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 4525) (byte-code "\b\203\n\0\301\b!\202\v\0\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar jabber-rtt-send-mode-hook nil)
(byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\0\b\310\211%\207" [jabber-rtt-send-mode-map jabber-rtt-send-mode-hook variable-documentation put "Hook run after entering or leaving `jabber-rtt-send-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode jabber-rtt-send-mode " Real-Time" boundp] 6)
(defalias 'jabber-rtt--cancel-send #[0 "\306\b!\203\n\0\307\b!\210	T\11\310\n\311\312\vB\313B\314\315\316\317	!B\320BB\321BBE\"\210\322\211\10\11\322\211\14\211\15\207" [jabber-rtt-send-timer jabber-rtt-send-seq jabber-buffer-connection jabber-chatting-with jabber-rtt-outgoing-events jabber-rtt-send-last-timestamp timerp cancel-timer jabber-send-sexp message to ((type . "chat")) rtt (xmlns . "urn:xmpp:rtt:0") seq number-to-string ((event . "cancel")) (nil) nil] 10])
#@15 

(fn RESETP)\1f
(defalias 'jabber-rtt--send-current-text #[257 "\304\bd\"\305\306!\11\307\n\310\311\vB\312B\313\314\315\316	!B\317\ 6	\203!\0\320\202\"\0\321BE\322\323\ 6\bEEE\"\207" [jabber-point-insert jabber-rtt-send-seq jabber-buffer-connection jabber-chatting-with buffer-substring-no-properties random 100000 jabber-send-sexp message to ((type . "chat")) rtt (xmlns . "urn:xmpp:rtt:0") seq number-to-string event "reset" "new" t nil] 11 (#$ . 7582)])
#@34 

(fn BEG END PRE-CHANGE-LENGTH)\1f
(defalias 'jabber-rtt--queue-update #[771 "\ 2\bW\206	\0\ 1\bW?\205\235\0\304 	\2039\0\305\ 1	\"\306\307\310\ 3!_!\211\311V\2037\0\211\307W\2037\0\312\313\314\ 3!BC\315BB\nB\12\266\ 2\11\211\311V\203m\0\ 1dU\ 1\316U\317\320\ 3?\205Z\0\321\314\ 6\b\b[\\\ 6\a\\!BC\ 3?\205f\0\313\314\ 6\a!BC\"D\nB\12\266\ 2\ 2\ 2U\204\220\0\322\ 3\ 3\"\ 2dU\323\ 1?\205\211\0\321\314\ 6\a\bZ!BC\ 3E\nB\12\266\ 2\v?\205\235\0\324\325\326\327p$\211\13\207" [jabber-point-insert jabber-rtt-send-last-timestamp jabber-rtt-outgoing-events jabber-rtt-send-timer current-time time-subtract truncate 1000 float-time 0 w n number-to-string (nil) 1 e append p buffer-substring-no-properties t run-with-timer 0.7 nil jabber-rtt--send-queued-events] 11 (#$ . 8032)])
#@15 

(fn BUFFER)\1f
(defalias 'jabber-rtt--send-queued-events #[257 "r\211q\210\305\10	\205@\0\n\203\12\0\306\202\13\0\307\n\203\1c\0\nT\202\1f\0\310\311!\12\312\v\313\314\fB\315B\316\317\320\321\n!B\322\ 6\bBE	\237BBE\"\210\305\211\11\262\ 1)\207" [jabber-rtt-send-timer jabber-rtt-outgoing-events jabber-rtt-send-seq jabber-buffer-connection jabber-chatting-with nil "edit" "new" random 100000 jabber-send-sexp message to ((type . "chat")) rtt (xmlns . "urn:xmpp:rtt:0") seq number-to-string event] 11 (#$ . 8732)])
#@16 

(fn TEXT ID)\1f
(defalias 'jabber-rtt--message-sent #[514 "\304\b!\203\n\0\305\b!\210\306\211\10\11\306\211\12\211\13\207" [jabber-rtt-send-timer jabber-rtt-send-seq jabber-rtt-outgoing-events jabber-rtt-send-last-timestamp timerp cancel-timer nil] 5 (#$ . 9225)])
(provide 'jabber-rtt)