;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\300\304!\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [require rudel-xml rudel-operations rudel-infinote-group-document rudel-infinote-text-document defalias rudel-infinote-group-text-document-state-idle-p eieio-make-class-predicate rudel-infinote-group-text-document-state-idle rudel-infinote-group-text-document-state-idle--eieio-childp eieio-make-child-predicate rudel-infinote-group-text-document-state-idle-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-group-text-document-state-idle) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-infinote-group-document-state-idle) nil (:documentation "")] 6) #@102 Create a new object of class type `rudel-infinote-group-text-document-state-idle'. (fn &rest SLOTS) (defalias 'rudel-infinote-group-text-document-state-idle #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-group-text-document-state-idle] 5 (#$ . 1203)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-group-text-document-state-idle compiler-macro rudel-infinote-group-text-document-state-idle--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-group-text-document-state-idle--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 (#$ . 1655)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\210\300\335\302\336\302\337%\210\340\341\342\343!\"\210\340\344\345\343!\"\210\340\346\344\"\210\347\346\350\351#\210\352\343\353\344#\354\343\355\302\356$\207" [cl-generic-define-method rudel-infinote/request/insert nil ((this rudel-infinote-group-text-document-state-idle) user xml) #[771 "\211\211\300\301\"\206 \302\266\202\211\205\303!\262\304\301\"\206 \302\266\202\305\306\307\310\311\2063\312%#\266\313\207" [pos xml-get-attribute-or-nil #1="" string-to-number text rudel-remote-operation rudel-insert-op "insert" :position :data "\n" nil] 15 "\n\n(fn THIS USER XML)"] rudel-infinote/request/insert-caret ((this rudel-infinote-group-text-document-state-idle) user xml) #[771 "\211\211\300\301\"\206 \302\266\202\211\205\303!\262\304\301\"\206 \302\266\202\305\306\307\310\311\2063\312%#\210\305\313\314\310##\266\315\207" [pos xml-get-attribute-or-nil #1# string-to-number text rudel-remote-operation rudel-insert-op "insert" :from :data "\n" rudel-move-cursor-op "move-cursor" nil] 15 "\n\n(fn THIS USER XML)"] rudel-infinote/request/delete ((this rudel-infinote-group-text-document-state-idle) user xml) #[771 "\211\211\300\301\"\206 \302\266\202\211\205\303!\262\304\301\"\206 \302\266\202\211\205)\303!\262\305\306\307\310\311%#\266\312\207" [pos xml-get-attribute-or-nil #1# string-to-number len rudel-remote-operation rudel-delete-op "delete" :from :length nil] 15 "\n\n(fn THIS USER XML)"] rudel-infinote/request/delete-caret ((this rudel-infinote-group-text-document-state-idle) user xml) #[771 "\211\211\300\301\"\206 \302\266\202\211\205\303!\262\304\301\"\206 \302\266\202\211\205)\303!\262\305\306\307\310\311%#\210\305\312\313\310##\266\314\207" [pos xml-get-attribute-or-nil #1# string-to-number len rudel-remote-operation rudel-delete-op "delete" :from :length rudel-move-cursor-op "move-cursor" nil] 15 "\n\n(fn THIS USER XML)"] rudel-infinote/request/no-op ((_this rudel-infinote-group-text-document-state-idle) _user _xml) #[771 "\300\207" [nil] 4 "\n\n(fn THIS USER XML)"] rudel-infinote/request/move ((this rudel-infinote-group-text-document-state-idle) user xml) #[771 "\211\211\300\301\"\206 \302\266\202\211\205\303!\262\304\301\"\206 \302\266\202\211\205)\303!\262\305\306\307\310##\210\305\311\312\310\313%#\266\314\207" [caret xml-get-attribute-or-nil #1# string-to-number selection rudel-remote-operation rudel-move-cursor-op "move-cursor" :from rudel-move-selection-op "move-selection" :length nil] 15 "\n\n(fn THIS USER XML)"] rudel-infinote/request/undo ((_this rudel-infinote-group-text-document-state-idle) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"] rudel-infinote/request/undo-caret ((_this rudel-infinote-group-text-document-state-idle) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"] rudel-infinote/request/redo ((_this rudel-infinote-group-text-document-state-idle) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"] rudel-infinote/request/redo-caret ((_this rudel-infinote-group-text-document-state-idle) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"] defalias rudel-infinote-group-text-document-state-synchronizing-p eieio-make-class-predicate rudel-infinote-group-text-document-state-synchronizing rudel-infinote-group-text-document-state-synchronizing--eieio-childp eieio-make-child-predicate rudel-infinote-group-text-document-state-synchronizing-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-group-text-document-state-synchronizing) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-infinote-group-document-state-synchronizing) (:documentation #1#)] 6) #@111 Create a new object of class type `rudel-infinote-group-text-document-state-synchronizing'. (fn &rest SLOTS) (defalias 'rudel-infinote-group-text-document-state-synchronizing #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-group-text-document-state-synchronizing] 5 (#$ . 5892)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-group-text-document-state-synchronizing compiler-macro rudel-infinote-group-text-document-state-synchronizing--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-group-text-document-state-synchronizing--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 (#$ . 6389)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method rudel-infinote/sync-segment nil ((this rudel-infinote-group-text-document-state-synchronizing) xml) #[514 "\211\300\301\"\206\f\302\266\202\211\205\303!\262\304\301\"\206!\302\266\202\305\306\307\"\310\311$\211\204=\312\313\314\315\"\316#\210\202O\317\320\321\322\323\324 \206L\325%#\210\210\326\327\306\327\"S#\266\323\207" [author xml-get-attribute-or-nil "" string-to-number text rudel-find-user slot-value document = rudel-id display-warning (rudel infinote) format "Could not find user: %d" :warning rudel-remote-operation rudel-insert-op "insert-sync-segment" :from nil :data "\n" eieio-oset remaining-items] 16 "\n\n(fn THIS XML)"] rudel-infinote/request/delete ((_this rudel-infinote-group-text-document-state-synchronizing) _xml) #[514 "\300\207" [nil] 3 "\n\n(fn THIS XML)"]] 6) #@6 TODO (defvar rudel-infinote-group-text-document-states '((idle . rudel-infinote-group-text-document-state-idle) (synchronizing . rudel-infinote-group-text-document-state-synchronizing) (joining . rudel-infinote-group-document-state-joining) (closed . rudel-infinote-group-state-closed)) (#$ . 7577)) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias rudel-infinote-group-text-document-p eieio-make-class-predicate rudel-infinote-group-text-document rudel-infinote-group-text-document--eieio-childp eieio-make-child-predicate rudel-infinote-group-text-document-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-group-text-document) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-infinote-group-document) ((parent :type rudel-infinote-node-directory-child)) (:documentation "")] 6) #@91 Create a new object of class type `rudel-infinote-group-text-document'. (fn &rest SLOTS) (defalias 'rudel-infinote-group-text-document #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-group-text-document] 5 (#$ . 8514)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-group-text-document compiler-macro rudel-infinote-group-text-document--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-group-text-document--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 (#$ . 8911)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312!\207" [cl-generic-define-method initialize-instance nil ((this rudel-infinote-group-text-document) _slots) t #[771 " \210\301\302\303#\210\304\"\207" [rudel-infinote-group-text-document-states eieio-oset :states nil rudel-register-states] 7 "\n\n(fn CL--CNM THIS SLOTS)"] rudel-remote-operation ((this rudel-infinote-group-text-document) user operation) #[771 "\300\301\302\"#\207" [rudel-remote-operation slot-value document] 8 "\n\n(fn THIS USER OPERATION)"] provide rudel-infinote-group-text-document] 6)