Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/eieio-datadebug.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@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 "\300G\301\"\302P\303\"\207" [make-string 32 "] " data-debug/eieio-insert-slots] 6 (#$ . 479)])
#@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 (#$ . 743)])
#@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 (#$ . 1084)])
(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% \202+ \211\262\202+ \211\266\202\304\311H\312#\210\211\313H\211G\307\211W\205\216 \211H\314!\n>\204T \315\316\317D\"\210\211\311H\320\"\321\206b !\322P\323 \"\203} \324 \"\304\f#\266\202\205 \325\326 \327$\210\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] 16 "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)
Mini Shell