Reorganización de directorios

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

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



(byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317\306\303&\a\207" [require cl-lib custom-declare-group jabber-events nil "Message events and notifications." :group jabber custom-declare-variable jabber-events-request-these funcall function #[0 "\300\207" [(offline delivered displayed composing)] 1 ""] "Request these kinds of event notifications from others." :type (set (const :tag "Delivered to offline storage" offline) (const :tag "Delivered to user's client" delivered) (const :tag "Displayed to user" displayed) (const :tag "User is typing a reply" composing))] 8)
#@42 Is the other person composing a message?\1f
(defvar jabber-events-composing-p nil (#$ . 694))
(make-variable-buffer-local 'jabber-events-composing-p)
#@257 In what way has the message reached the recipient?
Possible values are nil (no information available), offline
(queued for delivery when recipient is online), delivered
(message has reached the client) and displayed (user is
probably reading the message).\1f
(defvar jabber-events-arrived nil (#$ . 848))
(make-variable-buffer-local 'jabber-events-arrived)
#@51 Human-readable presentation of event information.\1f
(defvar jabber-events-message "" (#$ . 1208))
(make-variable-buffer-local 'jabber-events-message)
(defalias 'jabber-events-update-message #[0 "\b\303\236A	\205	\0\304P\211\12\207" [jabber-events-arrived jabber-events-composing-p jabber-events-message ((offline . "In offline storage") (delivered . "Delivered") (displayed . "Displayed")) " (typing a message)"] 2])
(add-hook 'jabber-chat-send-hooks 'jabber-events-when-sending)
#@16 

(fn TEXT ID)\1f
(defalias 'jabber-events-when-sending #[514 "\302\10\303 \210\304\305\306\307	\"BBC\207" [jabber-events-arrived jabber-events-request-these nil jabber-events-update-message x ((xmlns . "jabber:x:event")) mapcar list] 7 (#$ . 1688)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\307\310\311&\a\210\300\315\302\303\316DD\317\306\307\310\311&\a\207" [custom-declare-variable jabber-events-confirm-delivered funcall function #[0 "\300\207" [t] 1 #1=""] "Send delivery confirmation if requested?" :group jabber-events :type boolean jabber-events-confirm-displayed #[0 "\300\207" [t] 1 #1#] "Send display confirmation if requested?" jabber-events-confirm-composing #[0 "\300\207" [t] 1 #1#] "Send notifications about typing a reply?"] 8)
#@27 List of events requested.\1f
(defvar jabber-events-requested nil (#$ . 2483))
(make-variable-buffer-local 'jabber-events-requested)
#@46 Id of last message received, or nil if none.\1f
(defvar jabber-events-last-id nil (#$ . 2618))
(make-variable-buffer-local 'jabber-events-last-id)
#@38 Has delivery confirmation been sent?\1f
(defvar jabber-events-delivery-confirmed nil (#$ . 2768))
(make-variable-buffer-local 'jabber-events-delivery-confirmed)
#@37 Has display confirmation been sent?\1f
(defvar jabber-events-display-confirmed nil (#$ . 2932))
(make-variable-buffer-local 'jabber-events-display-confirmed)
#@83 Has composing notification been sent?
It can be sent and cancelled several times.\1f
(defvar jabber-events-composing-sent nil (#$ . 3093))
(add-hook 'window-configuration-change-hook 'jabber-events-confirm-display)
#@135 Send display confirmation if appropriate.
That is, if user allows it, if the other user requested it,
and it hasn't been sent before.\1f
(defalias 'jabber-events-confirm-display #[0 "\300\301!\207" [walk-windows jabber-events-confirm-display-in-window] 2 (#$ . 3312)])
#@15 

(fn WINDOW)\1f
(defalias 'jabber-events-confirm-display-in-window #[257 "r\306\ 1!q\210\b\2054\0	?\2054\0\307\n>\2054\0\v\2054\0\310\v!\2054\0\311\f\312\313\vBC\314\315\316\317\320\rEFE\"\210\321\211\11)\207" [jabber-events-confirm-displayed jabber-events-display-confirmed jabber-events-requested jabber-chatting-with jabber-buffer-connection jabber-events-last-id window-buffer displayed jabber-jid-resource jabber-send-sexp message to x ((xmlns . "jabber:x:event")) (displayed) id nil t] 11 (#$ . 3584)])
(defalias 'jabber-events-after-change #[0 "d\bU?	\2051\0\n\2051\0\211\v=?\2051\0\306\f\307\310\nBC\311\312\313\ 6\a\205#\0\314\315\316\rEC\"BBE\"\210\211\211\13\207" [jabber-point-insert jabber-events-confirm-composing jabber-chatting-with jabber-events-composing-sent jabber-buffer-connection jabber-events-last-id jabber-send-sexp message to x ((xmlns . "jabber:x:event")) append ((composing)) id nil] 12])
(add-to-list 'jabber-message-chain 'jabber-handle-incoming-message-events t)
#@20 

(fn JC XML-DATA)\1f
(defalias 'jabber-handle-incoming-message-events #[514 "\306\ 1!?\205\f\ 1\307\310\ 2\311\ 1:\205\14\0\312\ 2\ 2\"\266\202!!\205\f\ 1r\310\ 1\311\ 1:\205(\0\312\ 2\ 2\"\266\202!q\210\313\314\315\ 3\316\"\317\320\321\322&\ 6\ 1\323\ 1:\205D\0\312\ 2\ 2\"\266\202\324\230\203W\0\325\326\327\330#\210\331\211\10\202	\ 1\315\ 2\332\"\203\312\0\331\11\333 \210\331\211\12\13\334\335\ 2\211AA\211\336\232?\205u\0\211\266\202\"\10\ 1\337\ 1:\205\204\0\312\ 2\ 2\"\266\202\14\340\r\203\232\0\341\b>\203\232\0\211\ 4\ 4\341#\210\330\13\ e*\203\264\0\342p\343\"\203\264\0\344\b>\203\264\0\211\ 4\ 4\344#\210\330\12\ e+\205\305\0\345\b>\205\305\0\346\326\327\331\330$\262\ 1\202	\ 1\211\205	\ 1\315\ 1\337\"\205	\ 1\3472\374\0\350\211\205\371\0\211@\315\ 3\ 2\"\203\362\0\211\16,\333 \210\351\347\330\"\210\ 1A\266\202\202\332\0\262\ 10?\205	\ 1\315\ 1\345\"??\11\333 \262\ 1)\207" [jabber-events-requested jabber-events-composing-p jabber-events-display-confirmed jabber-events-delivery-confirmed jabber-events-last-id jabber-events-confirm-delivered jabber-muc-message-p get-buffer jabber-chat-get-buffer from xml-get-attribute-or-nil cl-find "jabber:x:event" jabber-xml-get-children x :key #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\207" [xmlns xml-get-attribute-or-nil] 6 "\n\n(fn X)"] :test string= type "error" remove-hook post-command-hook jabber-events-after-change t nil body jabber-events-update-message mapcar car-safe (("")) id #[771 "\301\ 3\302\303\ 5\304\ 1:\205\ f\0\305\ 2\ 2\"\266\202BC\306\307\ 6\ 6C\310\311\bEFE\"\207" [jabber-events-last-id jabber-send-sexp message to from xml-get-attribute-or-nil x ((xmlns . "jabber:x:event")) id nil] 13 "\n\n(fn JC XML-DATA TYPE)"] delivered get-buffer-window visible displayed composing add-hook --cl-block-nil-- (offline delivered displayed) throw jabber-events-confirm-displayed jabber-events-confirm-composing jabber-events-arrived] 10 (#$ . 4557)])
(provide 'jabber-events)