;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\320\325\320\326%\210\323\327\320\330\320\331%\207" [require eieio rudel-infinote-group defalias rudel-infinote-node-p eieio-make-class-predicate rudel-infinote-node rudel-infinote-node--eieio-childp eieio-make-child-predicate rudel-infinote-node-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-node) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((id :initarg :id :type (integer 0) :reader rudel-id :documentation "The unique id of this node.") (parent :initarg :parent :type (or null rudel-infinote-node-child) :reader rudel-parent :documentation "The parent node of this node or nil for the root\nnode.") (group :initarg :group :type (or null rudel-infinote-group-child) :documentation "The communication group associated with this node.")) (:documentation "Objects of this class form a tree the leafs of which\ncorrespond to text documents or other content containing\ndocuments.") cl-generic-define-method rudel-parent ((this rudel-infinote-node)) #[257 "\300\301\"\207" [slot-value parent] 4 "Access the slot `parent' from object of class `rudel-infinote-node'.\n\n(fn THIS)"] rudel-id ((this rudel-infinote-node)) #[257 "\300\301\"\207" [slot-value id] 4 "Access the slot `id' from object of class `rudel-infinote-node'.\n\n(fn THIS)"]] 7) #@76 Create a new object of class type `rudel-infinote-node'. (fn &rest SLOTS) (defalias 'rudel-infinote-node #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-node] 5 (#$ . 1880)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-node compiler-macro rudel-infinote-node--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-node--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 (#$ . 2202)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method rudel-unique-name nil ((this rudel-infinote-node)) #[257 "\211\300\301\"\205\302\300\301\"!\303\304!Q\207" [slot-value parent rudel-unique-name "/" object-name-string] 6 "Return a unique name for THIS by forming a path from the root node.\n\n(fn THIS)"] provide rudel-infinote-node] 6)