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

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316&\a\210\305\317\307\310\320DD\321\313\322\315\316&\a\210\305\323\307\310\324DD\325\313\326\315\316&\a\207" [require jabber-keymap jabber-util ewoc sgml-mode custom-declare-variable jabber-debug-log-xml funcall function #[0 "\300\207" [nil] 1 #1=""] "Set to non-nil to log all XML i/o in *-jabber-console-JID-* buffer.\nSet to string to also dump XML i/o in specified file." :type (choice (const :tag "Do not dump XML i/o" nil) (const :tag "Dump XML i/o in console" t) (string :tag "Dump XML i/o in console and this file")) :group jabber-debug jabber-console-name-format #[0 "\300\207" ["*-jabber-console-%s-*"] 1 #1#] "Format for console buffer name.  %s mean connection jid." string jabber-console-truncate-lines #[0 "\300\207" [3000] 1 #1#] "Maximum number of lines in console buffer.\nNot truncate if set to 0." integer] 8)
#@51 Position where the message being composed starts.\1f
(defvar jabber-point-insert nil (#$ . 1014))
#@52 Function for sending a message from a chat buffer.\1f
(defvar jabber-send-function nil (#$ . 1115))
#@149 Hook called at the end of `jabber-console-mode'.
Note that functions in this hook have no way of knowing
what kind of chat buffer is being created.\1f
(defvar jabber-console-mode-hook nil (#$ . 1219))
#@58 The ewoc showing the XML elements of this stream buffer.\1f
(defvar jabber-console-ewoc nil (#$ . 1423))
(defvar jabber-console-mode-map (byte-code "\301 \302\ 1\b\"\210\303\ 1\304\305#\210\207" [jabber-common-keymap make-sparse-keymap set-keymap-parent define-key "\r" jabber-chat-buffer-send] 5))
#@11 

(fn JC)\1f
(defalias 'jabber-console-create-buffer #[257 "r\303\304\b\305\ 4!\"!q\210	\306=\204\14\0\306 \210\211\12p)\207" [jabber-console-name-format major-mode jabber-buffer-connection get-buffer-create format jabber-connection-bare-jid jabber-console-mode] 6 (#$ . 1719)])
#@16 

(fn JC DATA)\1f
(defalias 'jabber-console-send #[514 "\300\ 2\301\ 3#\210\302\ 2\ 2\"\207" [jabber-process-console "raw" jabber-send-string] 6 (#$ . 1993)])
#@47 Insert comment into console buffer.

(fn STR)\1f
(defalias 'jabber-console-comment #[257 "\b\ 1\303\304\305 !\306	\307\260\a\n;\203\16\0\310\ 1\n\"\210\211c\207" [comment-start comment-end jabber-debug-log-xml "@" jabber-encode-time current-time ":" "\n" jabber-append-string-to-file] 8 (#$ . 2147)])
#@54 Pretty Printer for XML-sexp and raw data.

(fn DATA)\1f
(defalias 'jabber-console-pp #[257 "\211@\ 1A\ 2A@\301\ 3!\210\211;\203\1d\0\211c\210\b;\205,\0\302\ 1\b\"\207\303\ 2!\210\b;\205,\0\302\304\b\303\ 5$\207" [jabber-debug-log-xml jabber-console-comment jabber-append-string-to-file xml-print "\n"] 9 (#$ . 2442)])
(defvar jabber-console-mode-hook nil)
(byte-code "\300\301N\204\f\0\302\300\301\303#\210\304\305!\204\18\0\302\305\306\307#\210\300\207" [jabber-console-mode-hook variable-documentation put "Hook run after entering Jabber Console mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp jabber-console-mode-map definition-name jabber-console-mode] 4)
(defvar jabber-console-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\ e\0\303\301\302\304\305!#\210\306\307!\204\1f\0\303\307\310\311#\210\312\313 !\210\307\302N\204-\0\303\307\302\304\314!#\210\306\300!\204B\0\303\300\310\311#\210\315\316\300\317\"\210\b!\210\300\302N\204P\0\303\300\302\304\320!#\210\303\311\321\322#\207" [jabber-console-mode-abbrev-table jabber-console-mode-map variable-documentation put purecopy "Keymap for `jabber-console-mode'." boundp jabber-console-mode-syntax-table definition-name jabber-console-mode (lambda (#1=#:def-tmp-var) (defvar jabber-console-mode-syntax-table #1#)) make-syntax-table "Syntax table for `jabber-console-mode'." (lambda (#1#) (defvar jabber-console-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `jabber-console-mode'." derived-mode-parent sgml-mode] 5)
#@243 Major mode for debug XMPP protocol.

In addition to any hooks its parent mode `sgml-mode' might have run,
this mode runs the hook `jabber-console-mode-hook', as the final or
penultimate step during initialization.

\{jabber-console-mode-map}\1f
(defalias 'jabber-console-mode #[0 "\306\300!\210\307\18\310 \210\311\11\312\12\310\313N\203\e\0\314\311\313\310\313N#\210\315\v!\204'\0\316\v\317 \"\210\320\f!\211\2035\0\211\321 =\203;\0\322\f\323 \"\210\210\324\r\325\"\204R\0\r\ e(=\204R\0\326\r\325\ e(C#\210\327\v!\210\330\f!\210\r\16(\306\331!\210\306\332!\210\306\333!\210\334\16\19\ e\e\204\230\0\335\336\337\340#\16\edb\210\341e`\342\307$\210\307\1e)\341e`\343\307$\210\341e`\344\307$\210)\345 \16\1a)\346\347!\207" [delay-mode-hooks major-mode mode-name jabber-console-mode-map jabber-console-mode-syntax-table jabber-console-mode-abbrev-table make-local-variable t sgml-mode jabber-console-mode "Jabber Console" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table jabber-send-function jabber-point-insert jabber-console-ewoc jabber-console-send ewoc-create jabber-console-pp nil "<!-- + -->" put-text-property read-only front-sticky rear-nonsticky point-marker run-mode-hooks jabber-console-mode-hook local-abbrev-table inhibit-read-only] 5 (#$ . 4001) nil])
(put 'jabber-console-mode 'mode-class 'special)
#@64 Sanitize XML-DATA for `jabber-process-console'.

(fn XML-DATA)\1f
(defalias 'jabber-console-sanitize #[257 "\211<\203\n\0\300\301\ 2\"\207\207" [jabber-tree-map #[257 "\211\247\203\n\0\300\301\ 2\"\207\207" [format "%s"] 4 "\n\n(fn X)"]] 4 (#$ . 5436)])
#@89 Log XML-DATA i/o as XML in "*-jabber-console-JID-*" buffer.

(fn JC DIRECTION XML-DATA)\1f
(defalias 'jabber-process-console #[771 "\302\303\ 4!!r\211q\210\304\b\ 4\305\ 5!D\"\210\306	W\205!\0	\210\307\310\ 2\b\"\262\ 1)\207" [jabber-console-ewoc jabber-console-truncate-lines get-buffer-create jabber-console-create-buffer ewoc-enter-last jabber-console-sanitize 1 nil jabber-truncate-top] 9 (#$ . 5687)])
(provide 'jabber-console)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316&\a\210\305\317\307\310\320DD\321\313\322\315\316&\a\210\305\323\307\310\324DD\325\313\326\315\316&\a\207" [require jabber-keymap jabber-util ewoc sgml-mode custom-declare-variable jabber-debug-log-xml funcall function #[0 "\300\207" [nil] 1 #1=""] "Set to non-nil to log all XML i/o in -jabber-console-JID- buffer.\nSet to string to also dump XML i/o in specified file." :type (choice (const :tag "Do not dump XML i/o" nil) (const :tag "Dump XML i/o in console" t) (string :tag "Dump XML i/o in console and this file")) :group jabber-debug jabber-console-name-format #[0 "\300\207" ["-jabber-console-%s-"] 1 #1#] "Format for console buffer name. %s mean connection jid." string jabber-console-truncate-lines #[0 "\300\207" [3000] 1 #1#] "Maximum number of lines in console buffer.\nNot truncate if set to 0." integer] 8)
	9	#@51 Position where the message being composed starts.\1f
	10	(defvar jabber-point-insert nil (#$ . 1014))
	11	#@52 Function for sending a message from a chat buffer.\1f
	12	(defvar jabber-send-function nil (#$ . 1115))
	13	#@149 Hook called at the end of `jabber-console-mode'.
	14	Note that functions in this hook have no way of knowing
	15	what kind of chat buffer is being created.\1f
	16	(defvar jabber-console-mode-hook nil (#$ . 1219))
	17	#@58 The ewoc showing the XML elements of this stream buffer.\1f
	18	(defvar jabber-console-ewoc nil (#$ . 1423))
	19	(defvar jabber-console-mode-map (byte-code "\301 \302\ 1\b\"\210\303\ 1\304\305#\210\207" [jabber-common-keymap make-sparse-keymap set-keymap-parent define-key "\r" jabber-chat-buffer-send] 5))
	20	#@11
	21
	22	(fn JC)\1f
	23	(defalias 'jabber-console-create-buffer #[257 "r\303\304\b\305\ 4!\"!q\210 \306=\204\14\0\306 \210\211\12p)\207" [jabber-console-name-format major-mode jabber-buffer-connection get-buffer-create format jabber-connection-bare-jid jabber-console-mode] 6 (#$ . 1719)])
	24	#@16
	25
	26	(fn JC DATA)\1f
	27	(defalias 'jabber-console-send #[514 "\300\ 2\301\ 3#\210\302\ 2\ 2\"\207" [jabber-process-console "raw" jabber-send-string] 6 (#$ . 1993)])
	28	#@47 Insert comment into console buffer.
	29
	30	(fn STR)\1f
	31	(defalias 'jabber-console-comment #[257 "\b\ 1\303\304\305 !\306 \307\260\a\n;\203\16\0\310\ 1\n\"\210\211c\207" [comment-start comment-end jabber-debug-log-xml "@" jabber-encode-time current-time ":" "\n" jabber-append-string-to-file] 8 (#$ . 2147)])
	32	#@54 Pretty Printer for XML-sexp and raw data.
	33
	34	(fn DATA)\1f
	35	(defalias 'jabber-console-pp #[257 "\211@\ 1A\ 2A@\301\ 3!\210\211;\203\1d\0\211c\210\b;\205,\0\302\ 1\b\"\207\303\ 2!\210\b;\205,\0\302\304\b\303\ 5$\207" [jabber-debug-log-xml jabber-console-comment jabber-append-string-to-file xml-print "\n"] 9 (#$ . 2442)])
	36	(defvar jabber-console-mode-hook nil)
	37	(byte-code "\300\301N\204\f\0\302\300\301\303#\210\304\305!\204\18\0\302\305\306\307#\210\300\207" [jabber-console-mode-hook variable-documentation put "Hook run after entering Jabber Console mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp jabber-console-mode-map definition-name jabber-console-mode] 4)
	38	(defvar jabber-console-mode-map (make-sparse-keymap))
	39	(byte-code "\301\302N\204\ e\0\303\301\302\304\305!#\210\306\307!\204\1f\0\303\307\310\311#\210\312\313 !\210\307\302N\204-\0\303\307\302\304\314!#\210\306\300!\204B\0\303\300\310\311#\210\315\316\300\317\"\210\b!\210\300\302N\204P\0\303\300\302\304\320!#\210\303\311\321\322#\207" [jabber-console-mode-abbrev-table jabber-console-mode-map variable-documentation put purecopy "Keymap for `jabber-console-mode'." boundp jabber-console-mode-syntax-table definition-name jabber-console-mode (lambda (#1=#:def-tmp-var) (defvar jabber-console-mode-syntax-table #1#)) make-syntax-table "Syntax table for `jabber-console-mode'." (lambda (#1#) (defvar jabber-console-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `jabber-console-mode'." derived-mode-parent sgml-mode] 5)
	40	#@243 Major mode for debug XMPP protocol.
	41
	42	In addition to any hooks its parent mode `sgml-mode' might have run,
	43	this mode runs the hook `jabber-console-mode-hook', as the final or
	44	penultimate step during initialization.
	45
	46	\{jabber-console-mode-map}\1f
	47	(defalias 'jabber-console-mode #[0 "\306\300!\210\307\18\310 \210\311\11\312\12\310\313N\203\e\0\314\311\313\310\313N#\210\315\v!\204'\0\316\v\317 \"\210\320\f!\211\2035\0\211\321 =\203;\0\322\f\323 \"\210\210\324\r\325\"\204R\0\r\ e(=\204R\0\326\r\325\ e(C#\210\327\v!\210\330\f!\210\r\16(\306\331!\210\306\332!\210\306\333!\210\334\16\19\ e\e\204\230\0\335\336\337\340#\16\edb\210\341e`\342\307$\210\307\1e)\341e`\343\307$\210\341e`\344\307$\210)\345 \16\1a)\346\347!\207" [delay-mode-hooks major-mode mode-name jabber-console-mode-map jabber-console-mode-syntax-table jabber-console-mode-abbrev-table make-local-variable t sgml-mode jabber-console-mode "Jabber Console" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table jabber-send-function jabber-point-insert jabber-console-ewoc jabber-console-send ewoc-create jabber-console-pp nil "<!-- + -->" put-text-property read-only front-sticky rear-nonsticky point-marker run-mode-hooks jabber-console-mode-hook local-abbrev-table inhibit-read-only] 5 (#$ . 4001) nil])
	48	(put 'jabber-console-mode 'mode-class 'special)
	49	#@64 Sanitize XML-DATA for `jabber-process-console'.
	50
	51	(fn XML-DATA)\1f
	52	(defalias 'jabber-console-sanitize #[257 "\211<\203\n\0\300\301\ 2\"\207\207" [jabber-tree-map #[257 "\211\247\203\n\0\300\301\ 2\"\207\207" [format "%s"] 4 "\n\n(fn X)"]] 4 (#$ . 5436)])
	53	#@89 Log XML-DATA i/o as XML in "-jabber-console-JID-" buffer.
	54
	55	(fn JC DIRECTION XML-DATA)\1f
	56	(defalias 'jabber-process-console #[771 "\302\303\ 4!!r\211q\210\304\b\ 4\305\ 5!D\"\210\306 W\205!\0 \210\307\310\ 2\b\"\262\ 1)\207" [jabber-console-ewoc jabber-console-truncate-lines get-buffer-create jabber-console-create-buffer ewoc-enter-last jabber-console-sanitize 1 nil jabber-truncate-top] 9 (#$ . 5687)])
	57	(provide 'jabber-console)