;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\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\210\323\324\325\326\325\327%\207" [require eieio rudel-infinote-node defalias rudel-infinote-document-p eieio-make-class-predicate rudel-infinote-document rudel-infinote-document--eieio-childp eieio-make-child-predicate rudel-infinote-document-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-document) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-infinote-node rudel-document) ((self :initarg :self :type rudel-infinote-document-user :reader rudel-self :documentation "The user object belonging to the local side.")) (:documentation "Super class of infinote document classes.") cl-generic-define-method rudel-self nil ((this rudel-infinote-document)) #[257 "\300\301\"\207" [slot-value self] 4 "Access the slot `self' from object of class `rudel-infinote-document'.\n\n(fn THIS)"]] 7) #@80 Create a new object of class type `rudel-infinote-document'. (fn &rest SLOTS) (defalias 'rudel-infinote-document #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-document] 5 (#$ . 1410)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-document compiler-macro rudel-infinote-document--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-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 (#$ . 1752)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\311\312!\207" [cl-generic-define-method rudel-add-user nil ((this rudel-infinote-document) user) t #[771 "\211\300\301\302\"\301\303\"\"\206%\304\301\303\"\305\301\306\"#\307\301\302\"\"\210\211\262\262\310\311\"\2044\312\311#\210\"\210\262\207" [rudel-find-user slot-value session :object-name rudel-infinote-user :color color rudel-add-user slot-boundp :session-user eieio-oset] 11 "Add USER to THIS document.\nThe :session-user slot of user is set to the session user. The\nsession user is looked up and created if necessary.\n\n(fn CL--CNM THIS USER)"] rudel-set-self ((this rudel-infinote-document) user) #[514 "\300\301\302\"!\204*\303\301\302\"\304!\"\211\204!\305\306\304!\"\210\202)\307\301\302\"\"\210\210\211\310\311#\262\207" [rudel-self slot-value session rudel-find-user object-name-string error "Could not find designated self user in session: `%s'" rudel-set-self eieio-oset self] 8 "Set USER as self user of THIS.\nIf the session associated to THIS does not have a self user, the\nsession user object corresponding to USER is set as self user of\nthe session.\n\n(fn THIS USER)"] provide rudel-infinote-document] 6)