;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require eieio data-debug] 2)
#@112 Insert all the slots of OBJECT.
PREFIX specifies what to insert at the start of each line.

(fn OBJECT PREFIX)
(defalias 'data-debug-insert-object-slots #[514 "\300
G\301\"\302P\303\"\207" [make-string 32 "] " data-debug/eieio-insert-slots] 6 (#$ . 155)])
#@74 Insert the object slots found at the object button at POINT.

(fn POINT)
(defalias 'data-debug-insert-object-slots-from-point #[257 "\300
\301\"\300\302\"\303\211\210`\262
\304u\210\305\306\307\"\310P\"\210\211b\207" [get-text-property ddebug ddebug-indent nil 1 data-debug-insert-object-slots make-string 32 "~ "] 9 (#$ . 419)])
#@182 Insert a button representing OBJECT.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between PREFIX and the object button.

(fn OBJECT PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-object-button #[771 "`\300\301!\302!\303\304\305	!\306!\307!G%\261\210`\262\310GZ\311\312$\210\310\313$\210\310\314\nG$\210\310\315\n$\210\310\316$\210\310\317\320$\210\321c\207" [nil cl-prin1-to-string eieio-object-class format "Object %s\nClass: %S\nParent(s): %S\n%d slots" eieio-object-name-string eieio-class-parents eieio-class-slots put-text-property face font-lock-keyword-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-object-slots-from-point "\n"] 14 (#$ . 760)])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\"\210\300\310\302\311\302\312%\210\313\314!\207" [cl-generic-define-method data-debug/eieio-insert-slots nil ((obj eieio-default-superclass) prefix) #[514 "\303\304\305!\306#\210
\211\211\307H\262
	\203,\211\2119\203&\211\310N\206'\266\202\202.\211\266\203\202.\262
\304
\311H\312#\210\211\313H\211G\307\211W\205\215
H\314
!\n>\204T\315\316\317D\"\210\211\311H\320\"\321
\206b!\322P\323\n\"\203}\324\n\"\304
#\266\202\206\325\326\n\327$\266\211T\262
\202<\266\202\262
\262
)\207" [inhibit-read-only eieio-backward-compatibility cl-struct-cl-slot-descriptor-tags t data-debug-insert-thing eieio-object-name-string "Name: " 0 cl--class 1 "Class: " 4 type-of signal wrong-type-argument cl-slot-descriptor eieio--class-slot-initarg symbol-name " " slot-boundp eieio-oref data-debug-insert-custom "#unbound" font-lock-keyword-face] 15 "Insert the slots of OBJ into the current DDEBUG buffer.\n\n(fn OBJ PREFIX)"] data-debug-add-specialized-thing #[257 "\300
!\207" [eieio-object-p] 3 "\n\n(fn THING)"] data-debug-insert-object-button data-debug-show ((obj eieio-default-superclass)) #[257 "\300\301\302\303!\"!\210\304
\305\"\207" [data-debug-new-buffer format "*%s DDEBUG*" eieio-object-name data-debug-insert-object-slots "]"] 6 "Run ddebug against any EIEIO object OBJ.\n\n(fn OBJ)"] provide eieio-datadebug] 6)