;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 eieio rudel-state-machine rudel-infinote-util defalias rudel-infinote-state-p eieio-make-class-predicate rudel-infinote-state rudel-infinote-state--eieio-childp eieio-make-child-predicate rudel-infinote-state-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-state) ((connection :initarg :connection :type rudel-infinote-client-connection :documentation "")) (:documentation "Base class for infinote state classes.")] 6) #@77 Create a new object of class type `rudel-infinote-state'. (fn &rest SLOTS) (defalias 'rudel-infinote-state #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-state] 5 (#$ . 1122)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-state compiler-macro rudel-infinote-state--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-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 (#$ . 1449)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314!\207" [cl-generic-define-method rudel-enter nil ((_this rudel-infinote-state)) #[257 "\300\207" [nil] 2 "\n\n(fn THIS)"] rudel-leave ((_this rudel-infinote-state)) #[257 "\300\207" [""] 2 "\n\n(fn THIS)"] rudel-accept ((_this rudel-infinote-state) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"] provide rudel-infinote-state] 6)