;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:01 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/eieio-datadebug.el
;;; in Emacs version 24.3.1
;;; 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!\207" [require eieio data-debug] 2)
#@92 Insert all the slots of OBJECT.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-object-slots #[(object prefix) "\303G\304\"\305P\306\n	\")\207" [prefix attrprefix object make-string 32 "] " data-debug/eieio-insert-slots] 3 (#$ . 639)])
#@62 Insert the object slots found at the object button at POINT.
(defalias 'data-debug-insert-object-slots-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent object get-text-property ddebug ddebug-indent nil 1 data-debug-insert-object-slots make-string 32 "~ "] 5 (#$ . 923)])
#@148 Insert a button representing OBJECT.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between PREFIX and the object button.
(defalias 'data-debug-insert-object-button #[(object prefix prebuttontext) "`\306\307!\310\311\312!\313!\314\313!!\315!G%
\n\261\210`\316\nGZ\317\320$\210\316\f\321$\210\316\f\322
G$\210\316\f\323
$\210\316\f\324	$\210\316\f\325\326$\210\327c,\207" [object tip str end start prefix nil object-print format "Object %s\nClass: %S\nParent(s): %S\n%d slots" object-name-string object-class class-parents object-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" prebuttontext] 10 (#$ . 1280)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\310\311\312\"\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\207" [eieio--defalias data-debug/eieio-insert-slots eieio--defgeneric-init-form #1="Insert the slots of OBJ into the current DDEBUG buffer." eieio--defmethod nil eieio-default-superclass #[(obj prefix) "\306\307!	\310#\210\311!\211\312N\306\n\312N\fH	\313#\210
H\211\205\205\314@\"\203Y\315\n@\"\316@\"\306	\203L\317!\202Q\317@!\320P#\210*\202{\315\n@\"\321\322	\203p\317!\202u\317@!\320P\323$\210)A\211\204#\324+\207" [obj prefix cl cv class-symbol class-public-a data-debug-insert-thing object-name-string "Name: " object-class eieio-class-definition "Class: " slot-boundp class-slot-initarg eieio-oref symbol-name " " data-debug-insert-custom "#unbound" font-lock-keyword-face nil publa i v] 6 #1#] data-debug-add-specialized-thing #[(thing) "\300\301\302\217\207" [nil (byte-code "\211\302H\303=\205\304\305\306\217)\207" [thing tobj 0 object nil (byte-code "	H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error))] 3] data-debug-insert-object-button data-debug-show #2="Run ddebug against any EIEIO object OBJ." #[(obj) "\301\302\303\304!\"!\210\305\306\"\207" [obj data-debug-new-buffer format "*%s DDEBUG*" object-name data-debug-insert-object-slots "]"] 5 #2#]] 5)
#@64 Show the method invocation order for METHOD with CLASS object.
(defalias 'eieio-debug-methodinvoke #[(method class) "\304\305\306\215\307\310!\311\312	\"\313\314\315#,\207" [eieio-pre-method-execution-functions data buf data2 #[(l) "\301\302\"\207" [l throw moose] 3] moose (byte-code "\302	C\"\207" [method class eieio-generic-call] 3) data-debug-new-buffer "*Method Invocation*" mapcar #[(sym) "@K\207" [sym] 1] data-debug-insert-thing ">" ""] 4 (#$ . 3463) "aMethod: \nXClass Expression: "])
(provide 'eieio-datadebug)