Reorganización de directorios

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

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



(require 'jabber-keymap)
#@51 Position where the message being composed starts.\1f
(defvar jabber-point-insert nil (#$ . 109))
#@52 Function for sending a message from a chat buffer.\1f
(defvar jabber-send-function nil (#$ . 209))
#@146 Hook called at the end of `jabber-chat-mode'.
Note that functions in this hook have no way of knowing
what kind of chat buffer is being created.\1f
(defvar jabber-chat-mode-hook nil (#$ . 312))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\207" [custom-declare-variable jabber-chat-fill-long-lines funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, fill long lines in chat buffers.\nLines are broken at word boundaries at the width of the\nwindow or at `fill-column', whichever is shorter." :group jabber-chat :type boolean] 8)
#@52 The ewoc showing the messages of this chat buffer.\1f
(defvar jabber-chat-ewoc nil (#$ . 858))
#@37 The connection used by this buffer.\1f
(defvar jabber-buffer-connection nil (#$ . 956))
(make-variable-buffer-local 'jabber-buffer-connection)
#@90 Jabber chat mode.
\{jabber-chat-mode-map}

JC is the Jabber connection.

(fn JC EWOC-PP)\1f
(defalias 'jabber-chat-mode #[514 "\306 \210\307\310!\210\307\301!\210\307\305!\210\307\303!\210\307\302!\210\ 1\10\311\11\312\12\v\204E\0\313\ 1\314\315#\13db\210\316e`\317\312$\210\312\1c\316e`\320\312$\210\316e`\321\312$\210)\322 \15\323\16\1a\324\16\e\325\ e\1c!\210\326\327!\203Z\0\327\330!\207\331\330!\207" [jabber-buffer-connection scroll-conservatively buffer-undo-list jabber-chat-ewoc inhibit-read-only jabber-point-insert kill-all-local-variables make-local-variable jabber-send-function 5 t ewoc-create nil "---" put-text-property read-only front-sticky rear-nonsticky point-marker jabber-chat-mode "jabber-chat" use-local-map fboundp run-mode-hooks jabber-chat-mode-hook run-hooks major-mode mode-name jabber-chat-mode-map] 7 (#$ . 1102)])
(put 'jabber-chat-mode 'mode-class 'special)
(defalias 'jabber-chat-mode-flyspell-verify #[0 "`\bY\207" [jabber-point-insert] 2])
(put 'jabber-chat-mode 'flyspell-mode-predicate 'jabber-chat-mode-flyspell-verify)
(defvar jabber-chat-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))
(defalias 'jabber-chat-buffer-send #[0 "d\bZ\211\304V\262\ 1\205+\0	\n>\204!\0\305	!\211\203\1c\0\11\202!\0\306\307!\11\210\310\bd\"\v	\ 2\"\262\ 1\207" [jabber-point-insert jabber-buffer-connection jabber-connections jabber-send-function 0 jabber-find-active-connection jabber-read-account t delete-and-extract-region] 4 nil nil])
#@50 Fill lines that are wider than the window width.\1f
(defalias 'jabber-chat-buffer-fill-long-lines #[0 "\212\303\304\305p!!\ 1\18eb\210\306\19m?\205:\0\306\7f\210i\n\ 2^Y\2034\0\214`Td^\307 }\210\310 \311\306!\210\312\ 1!b\266\ 2)\313y\210\202\ e\0*\266\202)\207" [inhibit-read-only adaptive-fill-mode fill-column t window-width get-buffer-window nil point-at-bol point-marker fill-paragraph marker-position 1] 5 (#$ . 2631) nil])
(provide 'jabber-chatbuffer)