;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\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\316\305\317\320\321$\207" [require rudel-infinote-node defalias rudel-infinote-node-directory-p eieio-make-class-predicate rudel-infinote-node-directory rudel-infinote-node-directory--eieio-childp eieio-make-child-predicate rudel-infinote-node-directory-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-node-directory) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-infinote-node) ((child-cache :initarg :child-cache :type list :documentation "A list of child nodes. Backs the virtual\nslot :children. The value is computed on access.")) (:documentation "Objects of this class represent directory (inner) nodes in the\nInfinote tree.")] 6) #@86 Create a new object of class type `rudel-infinote-node-directory'. (fn &rest SLOTS) (defalias 'rudel-infinote-node-directory #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-node-directory] 5 (#$ . 1227)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-node-directory compiler-macro rudel-infinote-node-directory--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-node-directory--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 (#$ . 1599)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312!\207" [cl-generic-define-method rudel-add-child nil ((this rudel-infinote-node-directory) document) #[514 "\211\300\301\302\301\"B#\262\207" [eieio-oset child-cache slot-value] 11 "\n\n(fn THIS DOCUMENT)"] slot-missing ((this rudel-infinote-node-directory) slot-name operation &optional _new-value) t #[1284 "\300=\204\f\301=\203D\302=\203D\303\304\"\204?\305\304\306#\210\307\310\311\"\312\306#\210\313\310\311\"\314\310\315\"#\210\307\310\311\"\316\306#\266\317\304\"\207 \207" [:children children oref slot-boundp :child-cache eieio-oset nil rudel-state-wait slot-value group (idle) rudel-switch exploring id (idle) eieio-oref] 12 "Simulate slot :children. The value of the slot is fetched as\nnecessary.\n\n(fn CL--CNM THIS SLOT-NAME OPERATION &optional NEW-VALUE)"] provide rudel-infinote-node-directory] 6)