| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | #@108 Create a buffer for composing a Jabber message. |
| | 9 | |
| | 10 | JC is the Jabber connection. |
| | 11 | |
| | 12 | (fn JC &optional RECIPIENT)\1f |
| | 13 | (defalias 'jabber-compose #[513 "r\303\304\305\ 3\205\ f\0\306\307\310\ 6\ 6!\"P!!q\210\311\300!\210\312\10\ 1\11\313\n!\210\314\315\316\317#c\210\320\321!c\210\322\323\324\325\ 4\2056\0\ 4C#B\bB\10\326c\210\327\323\330\325\331#B\bB\10\332c\210\333\323\334\325\331#B\bB\10\335c\210\323\336\337\340\341$\210\342 \210\343p!\210eb)\207" [jabber-widget-alist jabber-buffer-connection widget-keymap get-buffer-create generate-new-buffer-name "Jabber-Compose" format "-%s" jabber-jid-displayname make-local-variable nil use-local-map jabber-propertize "Compose Jabber message\n" face jabber-title-large substitute-command-keys "\\<widget-field-keymap>Completion available with \\[widget-complete].\n" :recipients widget-create (repeat :tag "Recipients" jid) :value "\nSubject: " :subject editable-field "" "\nText:\n" :text text "\n" push-button :notify jabber-compose-send "Send" widget-setup switch-to-buffer] 9 (#$ . 85) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "To whom? "] 3)]) |
| | 14 | #@21 |
| | 15 | |
| | 16 | (fn &rest IGNORE)\1f |
| | 17 | (defalias 'jabber-compose-send #[128 "\302\303\b\236A!\302\304\b\236A!\302\305\b\236A!\ 2\204\1a\0\306\307!\210\ 2\211\2032\0\211@\310 \ 2\ 6\ 6\ 6\ 6\311%\210\ 1A\266\202\202\e\0\210\312 \210\313\314!\207" [jabber-widget-alist jabber-buffer-connection widget-value :recipients :subject :text error "No recipients specified" jabber-send-message nil bury-buffer message "Message sent"] 12 (#$ . 1186)]) |
| | 18 | (provide 'jabber-compose) |
projects / config.git / blame_incremental