;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable rudel-chat-handler-function funcall function #[0 "\300\207" [rudel-chat-handle-buffer-top] 1] "A function that is called when chat messages arrive." :group rudel :type (choice (const :tag "Display messages in the echo area" rudel-chat-handle-message) (const :tag "Log messages into a buffer, inserting at the top" rudel-chat-handle-buffer-top) (const :tag "Log messages into a buffer, inserting at the bottom" rudel-chat-handle-buffer-bottom) (function :tag "Other function"))] 8) #@73 Name of the buffer into which received chat message should be inserted. (defconst rudel-chat-buffer-name "*rudel-chat-log*" (#$ . 976)) #@84 Dispatch SENDER and MESSAGE to customizable handler function. (fn SENDER MESSAGE) (defalias 'rudel-chat-dispatch-message #[514 "\"\207" [rudel-chat-handler-function] 5 (#$ . 1118)]) #@64 Display SENDER and MESSAGE in the echo area. (fn SENDER TEXT) (defalias 'rudel-chat-handle-message #[514 "\300\301\302!#\207" [message "%s says: %s" rudel-chat-format-sender] 6 (#$ . 1310)]) #@72 Insert SENDER and MESSAGE at the beginning a buffer. (fn SENDER TEXT) (defalias 'rudel-chat-handle-buffer-top #[514 "\301!\206 \302!r\211q\210eb\210\303\304\305!#c)\207" [rudel-chat-buffer-name get-buffer pop-to-buffer format "%s: %s\n" rudel-chat-format-sender] 7 (#$ . 1510)]) #@69 Insert SENDER and MESSAGE at the end of a buffer. (fn SENDER TEXT) (defalias 'rudel-chat-handle-buffer-bottom #[514 "\301!\206 \302!r\211q\210db\210\303\304\305!#c)\207" [rudel-chat-buffer-name get-buffer pop-to-buffer format "\n%s: %s" rudel-chat-format-sender] 7 (#$ . 1801)]) #@45 Format USER handling nil values. (fn USER) (defalias 'rudel-chat-format-sender #[257 "\211\203\300!\207\301\207" [object-name-string ""] 3 (#$ . 2092)]) (provide 'rudel-chat)