;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!\210\300\302!\210\300\303!\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require xml rudel-util rudel-state-machine defalias rudel-xmpp-state-p eieio-make-class-predicate rudel-xmpp-state rudel-xmpp-state--eieio-childp eieio-make-child-predicate rudel-xmpp-state-child-p make-obsolete "use (cl-typep ... \\='rudel-xmpp-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-state rudel-impersonator rudel-delegator) ((impersonation-target-slot :initform 'transport) (delegation-target-slot :initform 'transport) (transport :initarg :transport :type rudel-transport :documentation "The transport class the state\nmachine of which uses the state object.")) (:documentation "Base class for XMPP state classes.")] 6) #@73 Create a new object of class type `rudel-xmpp-state'. (fn &rest SLOTS) (defalias 'rudel-xmpp-state #[128 "\300\301\302#\207" [apply make-instance rudel-xmpp-state] 5 (#$ . 1268)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-xmpp-state compiler-macro rudel-xmpp-state--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-xmpp-state--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1575)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\310\302\313\302\314%\210\315\316!\207" [cl-generic-define-method rudel-enter nil ((_this rudel-xmpp-state) &rest _args) #[385 "\300\207" [nil] 3 "Default behavior is to stay in the newly entered state.\n\n(fn THIS &rest ARGS)"] rudel-leave ((_this rudel-xmpp-state)) #[257 "\300\207" ["Default behavior is to do nothing when leaving a state."] 2 "\n\n(fn THIS)"] rudel-accept ((_this rudel-xmpp-state) _xml) #[514 "\300\207" [nil] 3 "Default behavior is to accept XML without taking action.\n\n(fn THIS XML)"] ((_this rudel-xmpp-state) xml) #[514 "\211\211@\262\211\300=\203\301\202\302\207" [stream:error they-finalize we-finalize] 5 "\n\n(fn THIS XML)"] provide rudel-xmpp-state] 6)