projects / config.git / blame
| 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 | (require 'jabber-keymap) | |
| 9 | #@51 Position where the message being composed starts.\1f | |
| 10 | (defvar jabber-point-insert nil (#$ . 109)) | |
| 11 | #@52 Function for sending a message from a chat buffer.\1f | |
| 12 | (defvar jabber-send-function nil (#$ . 209)) | |
| 13 | #@146 Hook called at the end of `jabber-chat-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-chat-mode-hook nil (#$ . 312)) | |
| 17 | (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) | |
| 18 | #@52 The ewoc showing the messages of this chat buffer.\1f | |
| 19 | (defvar jabber-chat-ewoc nil (#$ . 858)) | |
| 20 | #@37 The connection used by this buffer.\1f | |
| 21 | (defvar jabber-buffer-connection nil (#$ . 956)) | |
| 22 | (make-variable-buffer-local 'jabber-buffer-connection) | |
| 23 | #@90 Jabber chat mode. | |
| 24 | \{jabber-chat-mode-map} | |
| 25 | ||
| 26 | JC is the Jabber connection. | |
| 27 | ||
| 28 | (fn JC EWOC-PP)\1f | |
| 29 | (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)]) | |
| 30 | (put 'jabber-chat-mode 'mode-class 'special) | |
| 31 | (defalias 'jabber-chat-mode-flyspell-verify #[0 "`\bY\207" [jabber-point-insert] 2]) | |
| 32 | (put 'jabber-chat-mode 'flyspell-mode-predicate 'jabber-chat-mode-flyspell-verify) | |
| 33 | (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)) | |
| 34 | (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]) | |
| 35 | #@50 Fill lines that are wider than the window width.\1f | |
| 36 | (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]) | |
| 37 | (provide 'jabber-chatbuffer) |