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



(byte-code "\300\301!\210\302\303\304\305#\210\306\303\304\307#\210\302\310\311\305#\210\306\310\311\307#\210\302\312\313\305#\210\306\312\313\307#\207" [require ring defalias data-debug-overlay-properties overlay-properties nil make-obsolete "28.1" data-debug-overlay-p overlayp dd-propertize propertize] 4)
#@146 Insert the property list PROPLIST.
Each line starts with PREFIX.
The attributes belong to the tag PARENT.

(fn PROPLIST PREFIX &optional PARENT)
(defalias 'data-debug-insert-property-list #[770 "\205\300@!\301P\302A@$\266AA\262\202\207" [symbol-name " : " data-debug-insert-thing] 9 (#$ . 394)])
#@114 Insert all the parts of OVERLAY.
PREFIX specifies what to insert at the start of each line.

(fn OVERLAY PREFIX)
(defalias 'data-debug-insert-overlay-props #[514 "\300
G\301\"\302P\303!\304
\"\207" [make-string 32 "# " overlay-properties data-debug-insert-property-list] 7 (#$ . 710)])
#@70 Insert the overlay found at the overlay button at POINT.

(fn POINT)
(defalias 'data-debug-insert-overlay-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-overlay-props make-string 32 "| "] 9 (#$ . 1004)])
#@185 Insert a button representing OVERLAY.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay button.

(fn OVERLAY PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-overlay-button #[771 "`\300\301\302\"\261\210`\262\303GZ\304\305$\210\303\306	$\210\303\307G$\210\303\310$\210\303\311\312$\210\313c\207" [nil format "%s" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-overlay-from-point "\n"] 11 (#$ . 1338)])
#@122 Insert all the parts of OVERLAYLIST.
PREFIX specifies what to insert at the start of each line.

(fn OVERLAYLIST PREFIX)
(defalias 'data-debug-insert-overlay-list #[514 "
\205\300@\301#\210
A\262\202\207" [data-debug-insert-overlay-button ""] 6 (#$ . 1893)])
#@75 Insert the overlay found at the overlay list button at POINT.

(fn POINT)
(defalias 'data-debug-insert-overlay-list-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-overlay-list make-string 32 "* "] 9 (#$ . 2165)])
#@198 Insert a button representing OVERLAYLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay list button.

(fn OVERLAYLIST PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-overlay-list-button #[771 "`\300\301\302G\"\261\210`\262\303GZ\304\305$\210\303\306	$\210\303\307G$\210\303\310$\210\303\311\312$\210\313c\207" [nil format "#<overlay list: %d entries>" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-overlay-list-from-point "\n"] 11 (#$ . 2508)])
#@112 Insert all the parts of BUFFER.
PREFIX specifies what to insert at the start of each line.

(fn BUFFER PREFIX)
(defalias 'data-debug-insert-buffer-props #[514 "\300
G\301\"\302P\303\304!\305\306!\307\310!\311\312\n!\313\314\f!\315\316!\257\f\317
\"\207" [make-string 32 "# " :filename buffer-file-name :live buffer-live-p :modified buffer-modified-p :size buffer-size :process get-buffer-process :localvars buffer-local-variables data-debug-insert-property-list] 16 (#$ . 3112)])
#@68 Insert the buffer found at the buffer button at POINT.

(fn POINT)
(defalias 'data-debug-insert-buffer-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-buffer-props make-string 32 "| "] 9 (#$ . 3608)])
#@182 Insert a button representing BUFFER.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the buffer button.

(fn BUFFER PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-buffer-button #[771 "`\300\301\302\"\261\210`\262\303GZ\304\305$\210\303\306	$\210\303\307G$\210\303\310$\210\303\311\312$\210\313c\207" [nil format "%S" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-buffer-from-point "\n"] 11 (#$ . 3938)])
#@120 Insert all the parts of BUFFERLIST.
PREFIX specifies what to insert at the start of each line.

(fn BUFFERLIST PREFIX)
(defalias 'data-debug-insert-buffer-list #[514 "
\205\300@\301#\210
A\262\202\207" [data-debug-insert-buffer-button ""] 6 (#$ . 4488)])
#@73 Insert the buffer found at the buffer list button at POINT.

(fn POINT)
(defalias 'data-debug-insert-buffer-list-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-buffer-list make-string 32 "* "] 9 (#$ . 4756)])
#@195 Insert a button representing BUFFERLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the buffer list button.

(fn BUFFERLIST PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-buffer-list-button #[771 "`\300\301\302G\"\261\210`\262\303GZ\304\305$\210\303\306	$\210\303\307G$\210\303\310$\210\303\311\312$\210\313c\207" [nil format "#<buffer list: %d entries>" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-buffer-list-from-point "\n"] 11 (#$ . 5095)])
#@114 Insert all the parts of PROCESS.
PREFIX specifies what to insert at the start of each line.

(fn PROCESS PREFIX)
(defalias 'data-debug-insert-process-props #[514 "\300
G\301\"\302P\303!\304!\305\306\"\307!\310\311\205\312D\205'\313D\205,$\"\207" [make-string 32 "# " process-id process-tty-name process-contact t process-plist data-debug-insert-property-list append id tty] 13 (#$ . 5693)])
#@70 Insert the process found at the process button at POINT.

(fn POINT)
(defalias 'data-debug-insert-process-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-process-props make-string 32 "| "] 9 (#$ . 6110)])
#@185 Insert a button representing PROCESS.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the process button.

(fn PROCESS PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-process-button #[771 "`\300\301\302\303!#\261\210`\262\304GZ\305\306$\210\304\307	$\210\304\310G$\210\304\311$\210\304\312\313$\210\314c\207" [nil format "%S : %s" process-status put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-process-from-point "\n"] 11 (#$ . 6444)])
#@108 Insert all the parts of RING.
PREFIX specifies what to insert at the start of each line.

(fn RING PREFIX)
(defalias 'data-debug-insert-ring-contents #[514 "\300!\301\211W\205\302\303\"\304#\210\211T\262
\202\207" [ring-length 0 data-debug-insert-thing ring-ref ""] 8 (#$ . 7025)])
#@64 Insert the ring found at the ring button at POINT.

(fn POINT)
(defalias 'data-debug-insert-ring-items-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-ring-contents make-string 32 "} "] 9 (#$ . 7322)])
#@182 Insert a button representing RING.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff list button.

(fn RING PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-ring-button #[771 "`\300\301\302\303!\304!#\301\305\304!\303	!#\261\210`\262\306GZ\307\310$\210\306\311\n$\210\306\312	G$\210\306\313	$\210\306\314$\210\306\315\316$\210\317c\207" [nil format "#<RING: %d, %d max>" ring-length ring-size "Ring max-size %d, length %d." put-text-property face font-lock-type-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-ring-items-from-point "\n"] 12 (#$ . 7653)])
#@97 Insert the contents of HASH-TABLE inserting PREFIX before each element.

(fn HASH-TABLE PREFIX)
(defalias 'data-debug-insert-hash-table #[514 "\300\301\302\"\"\207" [maphash make-closure #[514 "\302\300\303\304\305	##\210\302
\300\303\306\305	##\207" [V0 font-lock-comment-face data-debug-insert-thing propertize "key " face "val "] 9 "\n\n(fn KEY VALUE)"]] 6 (#$ . 8332)])
#@68 Insert the contents of the hash-table button at POINT.

(fn POINT)
(defalias 'data-debug-insert-hash-table-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-hash-table make-string 32 "> "] 9 (#$ . 8715)])
#@210 Insert HASH-TABLE as expandable button, using PREFIX and PREBUTTONTEXT.
PREFIX is a recursive prefix and PREBUTTONTEXT is text to be inserted
in front of the button text.

(fn HASH-TABLE PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-hash-table-button #[771 "\300\301\302\"\303\304#\300Q\305\306G\307	\310\301\311\312!\313!\203)\314\202*\315\316!\317!%\320\321&\322\261\207" [propertize format "%s" face font-lock-keyword-face ddebug ddebug-indent ddebug-prefix help-echo "Hash-table\nTest: %s\nWeakness: %s\nElements: %d (of %d)" hash-table-test hash-table-weakness "yes" "no" hash-table-count hash-table-size ddebug-function data-debug-insert-hash-table-from-point "\n"] 20 (#$ . 9047)])
#@89 Insert the contents of WIDGET inserting PREFIX before each element.

(fn WIDGET PREFIX)
(defalias 'data-debug-insert-widget-properties #[514 "
A\211\205!\301
A@\302\303\304@\"\305#\306P#\210\211AA\262
\202\207" [font-lock-comment-face data-debug-insert-thing propertize format "%s" face " : "] 10 (#$ . 9768)])
#@64 Insert the contents of the widget button at POINT.

(fn POINT)
(defalias 'data-debug-insert-widget-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-widget-properties make-string 32 "# "] 9 (#$ . 10092)])
#@230 Insert one WIDGET.
A Symbol is a simple thing, but this provides some face and prefix rules.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.

(fn WIDGET PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-widget #[771 "\300\301\302@\"\303\304#\300Q\305\306G\307	\310\301\311@GS\312\245#\313\314&\315\261\207" [propertize format "#<WIDGET %s>" face font-lock-keyword-face ddebug ddebug-indent ddebug-prefix help-echo "Widget\nType: %s\n# Properties: %d" 2 ddebug-function data-debug-insert-widget-from-point "\n"] 18 (#$ . 10424)])
#@118 Insert all the parts of STUFFLIST.
PREFIX specifies what to insert at the start of each line.

(fn STUFFLIST PREFIX)
(defalias 'data-debug-insert-stuff-list #[514 "
\205 \300<\203@\202\301#\210
<\205
\243\262\202\207" [data-debug-insert-thing ""] 6 (#$ . 11030)])
#@71 Insert the stuff found at the stuff list button at POINT.

(fn POINT)
(defalias 'data-debug-insert-stuff-list-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-stuff-list make-string 32 "> "] 9 (#$ . 11314)])
#@192 Insert a button representing STUFFLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff list button.

(fn STUFFLIST PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-stuff-list-button #[771 "`\300\3011\302\303\304!\"0\202\210\305@<\204!\306@!\203%\307\202*\302\310\"\261\210`\262\311GZ\312\313$\210\311\314\n$\210\311\315	G$\210\311\316	$\210\311\317$\210\311\320\321$\210\322c\207" [nil (error) format "#<list o' stuff: %d entries>" safe-length "#<list o' stuff>" vectorp "" "%s" put-text-property face font-lock-variable-name-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-stuff-list-from-point "\n"] 12 (#$ . 11650)])
#@122 Insert all the parts of STUFFVECTOR.
PREFIX specifies what to insert at the start of each line.

(fn STUFFVECTOR PREFIX)
(defalias 'data-debug-insert-stuff-vector #[514 "\300\211GW\205\301H\302#\210\211T\262
\202
\207" [0 data-debug-insert-thing ""] 7 (#$ . 12405)])
#@73 Insert the stuff found at the stuff vector button at POINT.

(fn POINT)
(defalias 'data-debug-insert-stuff-vector-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-stuff-vector make-string 32 "[ "] 9 (#$ . 12685)])
#@198 Insert a button representing STUFFVECTOR.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff vector button.

(fn STUFFVECTOR PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-stuff-vector-button #[771 "`\300\301\302G\"\261\210`\262\303GZ\304\305$\210\303\306	$\210\303\307G$\210\303\310$\210\303\311$\210\303\312\313$\210\314c\207" [nil format "#<vector o' stuff: %d entries>" put-text-property face font-lock-variable-name-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-stuff-vector-from-point "\n"] 11 (#$ . 13027)])
#@83 Insert attached properties and possibly the value of symbol at POINT.

(fn POINT)
(defalias 'data-debug-insert-symbol-from-point #[257 "\300
\301\"\300\302\"\303\211\210`\262
\304u\210\305!\2040\306!\2030\307J\310\311\"\312P\313\314\315\316#\317P#\210\320\321!\310\311\"\312P\"\210\211b\207" [get-text-property ddebug ddebug-indent nil 1 fboundp boundp data-debug-insert-thing make-string 32 "> " propertize "value" face font-lock-comment-face " " data-debug-insert-property-list symbol-plist] 11 (#$ . 13666)])
#@182 Insert a button representing SYMBOL.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the symbol button.

(fn SYMBOL PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-symbol-button #[771 "\300!\203\301\302\303!P\304\305#\202(\306!\203$\301\307\303!P\304\310#\202(\311\312\"\301Q\313\314G\315	\316\317\320\321&\322\261\207" [fboundp propertize "#'" symbol-name face font-lock-function-name-face boundp "'" font-lock-variable-name-face format "'%s" ddebug ddebug-indent ddebug-prefix help-echo "" ddebug-function data-debug-insert-symbol-from-point "\n"] 16 (#$ . 14195)])
#@235 Insert one symbol THING.
A Symbol is a simple thing, but this provides some face and prefix rules.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.

(fn THING PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-string #[771 "\301\302\"\203\303\304\305\211$\262
\202
\301\306\"\203%\303\307\305\211$\262
\202\310\311\312\"\313#\302\261\207" [font-lock-string-face string-match "\n" replace-match "\\n" t "	" "\\t" propertize format "\"%s\"" face] 10 (#$ . 14836)])
#@235 Insert one symbol THING.
A Symbol is a simple thing, but this provides some face and prefix rules.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.

(fn THING PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-number #[771 "

\301\302\303\"\304#\305\261\207" [font-lock-string-face propertize format "%S" face "\n"] 9 (#$ . 15375)])
#@246 Insert one lambda expression THING.
A Symbol is a simple thing, but this provides some face and prefix rules.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.

(fn THING PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-lambda-expression #[771 "\300!\301
\302$\207" [prin1-to-string data-debug-insert-simple-thing font-lock-keyword-face] 9 (#$ . 15772)])
#@198 Insert one simple THING with a face.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.
FACE is the face to use.

(fn THING PREFIX PREBUTTONTEXT)
(defalias 'data-debug-insert-nil #[771 "

\261\210\300c\210`\301\302c\210`\262
\303c\210\304\305\306$\207" [": " nil "nil" "\n" put-text-property face font-lock-variable-name-face] 10 (#$ . 16191)])
#@203 Insert one simple THING with a face.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.
FACE is the face to use.

(fn THING PREFIX PREBUTTONTEXT FACE)
(defalias 'data-debug-insert-simple-thing #[1028 "\261\210`\300\301\302\"c\210`\262
\303c\210\304\305$\207" [nil format "%s" "\n" put-text-property face] 11 (#$ . 16597)])
#@263 Insert one simple THINGSTRING with a face.
Use for simple items that need a custom insert.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing.
FACE is the face to use.

(fn THINGSTRING PREFIX PREBUTTONTEXT FACE)
(defalias 'data-debug-insert-custom #[1028 "\261\210`\300c\210`\262
\301c\210\302\303$\207" [nil "\n" put-text-property face] 11 (#$ . 16987)])
#@63 Alist of methods used to insert things into an Ddebug buffer.
(defvar data-debug-thing-alist '((null . data-debug-insert-nil) (overlayp . data-debug-insert-overlay-button) ((lambda (thing) (and (consp thing) (overlayp (car thing)))) . data-debug-insert-overlay-list-button) (bufferp . data-debug-insert-buffer-button) ((lambda (thing) (and (consp thing) (bufferp (car thing)))) . data-debug-insert-buffer-list-button) (processp . data-debug-insert-process-button) (stringp . data-debug-insert-string) (numberp . data-debug-insert-number) (symbolp . data-debug-insert-symbol-button) (ring-p . data-debug-insert-ring-button) ((lambda (thing) (and (consp thing) (eq (car thing) 'lambda))) . data-debug-insert-lambda-expression) (hash-table-p . data-debug-insert-hash-table-button) (widgetp . data-debug-insert-widget) (listp . data-debug-insert-stuff-list-button) (vectorp . data-debug-insert-stuff-vector-button)) (#$ . 17407))
#@213 Add a new specialized thing to display with data-debug.
PREDICATE is a function that returns t if a thing is this new type.
FCN is a function that will display stuff in the data debug buffer.

(fn PREDICATE FCN)
(defalias 'data-debug-add-specialized-thing #[514 "

B\211A\235?\205
B\241\207" [data-debug-thing-alist] 8 (#$ . 18340)])
#@278 Insert THING with PREFIX.
PREBUTTONTEXT is some text to insert between prefix and the thing
that is not included in the indentation calculation of any children.
If PARENT is non-nil, it is somehow related as a parent to thing.

(fn THING PREFIX PREBUTTONTEXT &optional PARENT)
(defalias 'data-debug-insert-thing #[1027 "\302\3032Q	\211\203N\211@\211@!\203G\3041.\211A$\210\305\303\306\"0\210\202G\210\3071F\211A#\210\305\303\306\"0\210\202G\210
A\266\202\202\210\3060\203_\310\311\312\"\313$\210)\314\306!\207" [inhibit-read-only data-debug-thing-alist t done (error) throw nil (error) data-debug-insert-simple-thing format "%S" bold set-buffer-modified-p] 11 (#$ . 18688)])
(custom-declare-group 'data-debug nil "data-debug group." :group 'extensions)
#@48 Syntax table used in data-debug macro buffers.
(defvar data-debug-mode-syntax-table (byte-code "\300\301 !\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\316#\210\302\320\316#\210\207" [make-syntax-table standard-syntax-table modify-syntax-entry 59 ". 12" 10 ">" 34 "\"" 45 "_" 92 "\\" 96 "'" 39 44] 5) (#$ . 19478))
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\207" [defvaralias data-debug-map data-debug-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 7)
#@28 Keymap used in data-debug.
(defvar data-debug-mode-map (byte-code "\300 \301
!\210\302
\303\304#\210\302
\305\306#\210\302
\307\306#\210\302
\310\311#\210\302
\312\313#\210\302
\314\315#\210\302
\316\317#\210\207" [make-sparse-keymap suppress-keymap define-key [mouse-2] data-debug-expand-or-contract-mouse " " data-debug-expand-or-contract "
" "n" data-debug-next "p" data-debug-prev "N" data-debug-next-expando "P" data-debug-prev-expando] 5) (#$ . 20138))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable data-debug-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run when data-debug starts." :type hook] 6)
(defvar data-debug-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [data-debug-mode-hook variable-documentation put "Hook run after entering DATA-DEBUG mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp data-debug-mode-map definition-name data-debug-mode] 4)
(defvar data-debug-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [data-debug-mode-abbrev-table data-debug-mode-map variable-documentation put purecopy "Keymap for `data-debug-mode'." boundp data-debug-mode-syntax-table definition-name data-debug-mode (lambda (#1=#:def-tmp-var) (defvar data-debug-mode-syntax-table #1#)) make-syntax-table "Syntax table for `data-debug-mode'." (lambda (#1#) (defvar data-debug-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `data-debug-mode'." derived-mode-parent] 5)
#@168 Major-mode for the Analyzer debugger.

\{data-debug-mode-map}

This mode runs the hook `data-debug-mode-hook', as the final or
penultimate step during initialization.
(defalias 'data-debug-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315\316\307\306\317!\210\320\321 \210\306\322!\210\323\324\325!\210)\326\327!\207" [delay-mode-hooks major-mode mode-name data-debug-mode-map data-debug-mode-syntax-table data-debug-mode-abbrev-table make-local-variable t kill-all-local-variables data-debug-mode "DATA-DEBUG" use-local-map set-syntax-table ";;" "" comment-start-skip "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\);+ *" buffer-disable-undo font-lock-global-modes nil font-lock-mode -1 run-mode-hooks data-debug-mode-hook local-abbrev-table comment-start comment-end buffer-read-only] 2 (#$ . 21985) nil])
#@54 Create a new data-debug buffer with NAME.

(fn NAME)
(defalias 'data-debug-new-buffer #[257 "\301
!\302
!\210\211q\210\303\304 \210\305 \210\207" [buffer-read-only get-buffer-create pop-to-buffer nil erase-buffer data-debug-mode] 4 (#$ . 22826)])
#@43 Go to the next line in the Ddebug buffer.
(defalias 'data-debug-next #[0 "\300y\210\301 \210\302\303 w\207" [1 beginning-of-line "- *><[]" point-at-eol] 2 (#$ . 23080) nil])
#@47 Go to the previous line in the Ddebug buffer.
(defalias 'data-debug-prev #[0 "\300y\210\301 \210\302\303 w\207" [-1 beginning-of-line "- *><[]" point-at-eol] 2 (#$ . 23260) nil])
#@111 Go to the next line in the Ddebug buffer.
Contract the current line (if open) and expand the line
we move to.
(defalias 'data-debug-next-expando #[0 "\300 \210\301 \210\302 \207" [data-debug-contract-current-line data-debug-next data-debug-expand-current-line] 1 (#$ . 23446) nil])
#@115 Go to the previous line in the Ddebug buffer.
Contract the current line (if open) and expand the line
we move to.
(defalias 'data-debug-prev-expando #[0 "\300 \210\301 \210\302 \207" [data-debug-contract-current-line data-debug-prev data-debug-expand-current-line] 1 (#$ . 23735) nil])
#@49 Return non-nil if the current line is expanded.
(defalias 'data-debug-current-line-expanded-p #[0 "\300 \3011\212\302\210\303u\210\300 )0\202\210\304\211V\207" [current-indentation (error) nil 1 0] 4 (#$ . 24027)])
#@117 Return non-nil if the current line is expandable.
Lines that are not expandable are assumed to not be contractible.
(defalias 'data-debug-line-expandable-p #[0 "\300`\301\"?\207" [get-text-property ddebug-noexpand] 3 (#$ . 24255)])
#@72 Expand the current line (if possible).
Do nothing if already expanded.
(defalias 'data-debug-expand-current-line #[0 "\301 \203\302 ?\205\303`\304\"\305\211\205\211`!\210\306 )\262
\207" [inhibit-read-only data-debug-line-expandable-p data-debug-current-line-expanded-p get-text-property ddebug-function t beginning-of-line] 3 (#$ . 24493)])
#@76 Contract the current line (if possible).
Do nothing if already contracted.
(defalias 'data-debug-contract-current-line #[0 "\301 \203L\302`\303\"\203L\304 \305\306\210\307u\210`\306\3101;\304 V\204)\311\312!\2032\306\210\307u\210\202`\211\2620\210\202?\210d\262


|\210\313u\210\314 \266)\210\315\306!\207" [inhibit-read-only data-debug-current-line-expanded-p get-text-property ddebug-function current-indentation t nil 1 (error) looking-at "^\\s-*$" -1 beginning-of-line set-buffer-modified-p] 5 (#$ . 24848)])
#@51 Expand or contract anything at the current point.
(defalias 'data-debug-expand-or-contract #[0 "\300 \203\301 \203\302 \210\202\303 \210\304\305 w\207" [data-debug-line-expandable-p data-debug-current-line-expanded-p data-debug-contract-current-line data-debug-expand-current-line "- *><[]" point-at-eol] 2 (#$ . 25381) nil])
#@57 Expand or contract anything at event EVENT.

(fn EVENT)
(defalias 'data-debug-expand-or-contract-mouse #[257 "\211A@@\300
\301\"\210\212\302!\210\303 )\207" [select-window t mouse-set-point data-debug-expand-or-contract] 5 (#$ . 25719) "e"])
#@68 Data debug STUFF in a buffer named *NAME DDebug*.

(fn STUFF NAME)
(defalias 'data-debug-show-stuff #[514 "\300\301\302Q!\210\303\304\305#\210eb\210\306 \205\307 \207" [data-debug-new-buffer "*" " DDebug*" data-debug-insert-thing "?" "" data-debug-line-expandable-p data-debug-expand-current-line] 6 (#$ . 25968)])
#@81 Dump out the contents of some expression EXPR in edebug with ddebug.

(fn EXPR)
(defalias 'data-debug-edebug-expr #[257 "\300
\301\"\211\204
\302\303\"\207\304
\305\"\207" [eval t message "Expression %s is nil." data-debug-show-stuff "expression"] 5 (#$ . 26293) (byte-code "\302\303\304\305	\302\306%)C\207" [minibuffer-completing-symbol read-expression-map t read-from-minibuffer "Eval: " nil read-expression-history] 6)])
#@187 Evaluate EXPR and display the value.
If the result is something simple, show it in the echo area.
If the result is a list or vector, then use the data debugger to display it.

(fn EXPR)
(defalias 'data-debug-eval-expression #[257 "\302\204\303\304\305\"!\262
\202,\306\307!\302
\303\304\305\"!\262	\262
)

=\204*\211\266\211:\2047\310
!\203<\311
\312\"\207\313
\305\"\314!\211\203L\315
\305\"\210\210\207" [eval-expression-debug-on-error debug-on-error nil values--store-value eval t make-symbol "t" vectorp data-debug-show-stuff "Expression" prin1 eval-expression-print-format princ] 8 (#$ . 26728) (byte-code "\302\303\304\305	\302\306%)C\207" [minibuffer-completing-symbol read-expression-map t read-from-minibuffer "Eval: " nil read-expression-history] 6)])
(provide 'data-debug)