;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'jabber-keymap) #@50 Position where the message being composed starts (defvar jabber-point-insert nil (#$ . 112)) #@52 Function for sending a message from a chat buffer. (defvar jabber-send-function nil (#$ . 211)) #@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. (defvar jabber-chat-mode-hook nil (#$ . 314)) #@152 If non-nil, fill long lines in chat buffers. Lines are broken at word boundaries at the width of the window or at `fill-column', whichever is shorter. (custom-declare-variable 'jabber-chat-fill-long-lines t '(#$ . 512) :group 'jabber-chat :type 'boolean) #@52 The ewoc showing the messages of this chat buffer. (defvar jabber-chat-ewoc nil (#$ . 773)) #@37 The connection used by this buffer. (defvar jabber-buffer-connection nil (#$ . 871)) (make-variable-buffer-local 'jabber-buffer-connection) #@25 \{jabber-chat-mode-map} (defalias 'jabber-chat-mode #[(jc ewoc-pp) "\306 \210\307\310!\210\307\302!\210\307\311!\210\307\304!\210\307\303!\210\312\313\f\204G\314 \315\316#db\210\317e`\320\313$\210\313\317e`\321\313$\210\317e`\322\313$\210)\323  \324\325\326!\210\327\330!\203\\\330\331!\207\332\331!\207" [jc jabber-buffer-connection scroll-conservatively buffer-undo-list jabber-chat-ewoc ewoc-pp kill-all-local-variables make-local-variable jabber-send-function jabber-point-insert 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 inhibit-read-only major-mode mode-name jabber-chat-mode-map] 5 (#$ . 1017)]) (put 'jabber-chat-mode 'mode-class 'special) (defalias 'jabber-chat-mode-flyspell-verify #[nil "`Y\207" [jabber-point-insert] 2]) (put 'jabber-chat-mode 'flyspell-mode-predicate 'jabber-chat-mode-flyspell-verify) (defvar jabber-chat-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [map jabber-common-keymap make-sparse-keymap set-keymap-parent define-key " " jabber-chat-buffer-send] 4)) (defalias 'jabber-chat-buffer-send #[nil "dZ\211\306V\262\205- \n>\204#\307 !\211\203 \202\"\310\311!)\312d\" \f\")\207" [jabber-point-insert jabber-buffer-connection jabber-connections new-jc body 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. (defalias 'jabber-chat-buffer-fill-long-lines #[nil "\212\305\306\307p!!eb\210\310m?\205:\310\210i ^Y\2034\214`Td^\311 }\210\312 \313\310!\210\314\f!b\210*\315y\210\202,\207" [width inhibit-read-only adaptive-fill-mode fill-column goback t window-width get-buffer-window nil point-at-bol point-marker fill-paragraph marker-position 1] 4 (#$ . 2526) nil]) (provide 'jabber-chatbuffer)