Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/data-debug.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!\210\303\304\305\"\210\303\306\307\"\210\303\310\311\"\207" [require font-lock ring defalias data-debug-overlay-properties overlay-properties data-debug-overlay-p overlayp dd-propertize propertize] 3)
#@107 Insert the property list PROPLIST.
Each line starts with PREFIX.
The attributes belong to the tag PARENT.
(defalias 'data-debug-insert-property-list #[(proplist prefix &optional parent) "\205\304@!\305P\306A@\n	$\210)AA\211\204\307\207" [proplist pretext prefix parent symbol-name " : " data-debug-insert-thing nil] 6 (#$ . 644)])
#@93 Insert all the parts of OVERLAY.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-overlay-props #[(overlay prefix) "\304G\305\"\306P\307	!\310\n\"*\207" [prefix overlay proplist attrprefix make-string 32 "# " data-debug-overlay-properties data-debug-insert-property-list] 3 (#$ . 992)])
#@58 Insert the overlay found at the overlay button at POINT.
(defalias 'data-debug-insert-overlay-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent overlay get-text-property ddebug ddebug-indent nil 1 data-debug-insert-overlay-props make-string 32 "| "] 5 (#$ . 1328)])
#@150 Insert a button representing OVERLAY.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay button.
(defalias 'data-debug-insert-overlay-button #[(overlay prefix prebuttontext) "`\306\307\310\"\306
\n\261\210`\311\nGZ\312\313$\210\311\f\314$\210\311\f\315
G$\210\311\f\316
$\210\311\f\317	$\210\311\f\320\321$\210\322c,\207" [overlay tip str end start prefix nil format "%s" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-overlay-from-point "\n" prebuttontext] 5 (#$ . 1679)])
#@97 Insert all the parts of OVERLAYLIST.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-overlay-list #[(overlaylist prefix) "\205\302@	\303#\210A\211\204\304\207" [overlaylist prefix data-debug-insert-overlay-button "" nil] 5 (#$ . 2306)])
#@63 Insert the overlay found at the overlay list button at POINT.
(defalias 'data-debug-insert-overlay-list-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent overlaylist get-text-property ddebug ddebug-indent nil 1 data-debug-insert-overlay-list make-string 32 "* "] 5 (#$ . 2597)])
#@159 Insert a button representing OVERLAYLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay list button.
(defalias 'data-debug-insert-overlay-list-button #[(overlaylist prefix prebuttontext) "`\306\307\310G\"\306
\n\261\210`\311\nGZ\312\313$\210\311\f\314$\210\311\f\315
G$\210\311\f\316
$\210\311\f\317	$\210\311\f\320\321$\210\322c,\207" [overlaylist tip str end start prefix nil format "#<overlay list: %d entries>" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-overlay-list-from-point "\n" prebuttontext] 5 (#$ . 2961)])
#@92 Insert all the parts of BUFFER.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-buffer-props #[(buffer prefix) "\304G\305\"\306P\307\310	!\311\312	!\313\314	!\315\316	!\317\320	!\321\322	!\257\f\323\n\"*\207" [prefix buffer proplist attrprefix 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] 14 (#$ . 3641)])
#@56 Insert the buffer found at the buffer button at POINT.
(defalias 'data-debug-insert-buffer-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent buffer get-text-property ddebug ddebug-indent nil 1 data-debug-insert-buffer-props make-string 32 "| "] 5 (#$ . 4160)])
#@148 Insert a button representing BUFFER.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the buffer button.
(defalias 'data-debug-insert-buffer-button #[(buffer prefix prebuttontext) "`\306\307\310\"\306
\n\261\210`\311\nGZ\312\313$\210\311\f\314$\210\311\f\315
G$\210\311\f\316
$\210\311\f\317	$\210\311\f\320\321$\210\322c,\207" [buffer tip str end start prefix nil format "%S" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-buffer-from-point "\n" prebuttontext] 5 (#$ . 4506)])
#@96 Insert all the parts of BUFFERLIST.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-buffer-list #[(bufferlist prefix) "\205\302@	\303#\210A\211\204\304\207" [bufferlist prefix data-debug-insert-buffer-button "" nil] 5 (#$ . 5127)])
#@61 Insert the buffer found at the buffer list button at POINT.
(defalias 'data-debug-insert-buffer-list-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent bufferlist get-text-property ddebug ddebug-indent nil 1 data-debug-insert-buffer-list make-string 32 "* "] 5 (#$ . 5413)])
#@157 Insert a button representing BUFFERLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the buffer list button.
(defalias 'data-debug-insert-buffer-list-button #[(bufferlist prefix prebuttontext) "`\306\307\310G\"\306
\n\261\210`\311\nGZ\312\313$\210\311\f\314$\210\311\f\315
G$\210\311\f\316
$\210\311\f\317	$\210\311\f\320\321$\210\322c,\207" [bufferlist tip str end start prefix nil format "#<buffer list: %d entries>" put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-buffer-list-from-point "\n" prebuttontext] 5 (#$ . 5772)])
#@93 Insert all the parts of PROCESS.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-process-props #[(process prefix) "\306G\307\"\310P\311	!\312	!\313	\314\"\315	!\316\317
\205#\305
D\f\205*\304\fD\205/\n$\"-\207" [prefix process proplist pcontact tty id make-string 32 "# " process-id process-tty-name process-contact t process-plist data-debug-insert-property-list append attrprefix] 6 (#$ . 6445)])
#@58 Insert the process found at the process button at POINT.
(defalias 'data-debug-insert-process-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent process get-text-property ddebug ddebug-indent nil 1 data-debug-insert-process-props make-string 32 "| "] 5 (#$ . 6904)])
#@150 Insert a button representing PROCESS.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the process button.
(defalias 'data-debug-insert-process-button #[(process prefix prebuttontext) "`\306\307\310\311!#\306
\n\261\210`\312\nGZ\313\314$\210\312\f\315$\210\312\f\316
G$\210\312\f\317
$\210\312\f\320	$\210\312\f\321\322$\210\323c,\207" [process tip str end start prefix nil format "%S : %s" process-status put-text-property face font-lock-comment-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-process-from-point "\n" prebuttontext] 7 (#$ . 7255)])
#@90 Insert all the parts of RING.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-ring-contents #[(ring prefix) "\304!\305	\nW\205\306\307	\"\310#\210	T\211\202*\207" [ring idx len prefix ring-length 0 data-debug-insert-thing ring-ref ""] 5 (#$ . 7907)])
#@52 Insert the ring found at the ring button at POINT.
(defalias 'data-debug-insert-ring-items-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent ring get-text-property ddebug ddebug-indent nil 1 data-debug-insert-ring-contents make-string 32 "} "] 5 (#$ . 8214)])
#@150 Insert a button representing RING.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff list button.
(defalias 'data-debug-insert-ring-button #[(ring prefix prebuttontext) "`\306\307\310\311\n!\312\n!#\311\n!\313U?\205\314\n\313\"\307\315\312\n!\311\n!#\261\210`\316	GZ	\317\320$\210\316	\321\n$\210\316	\322G$\210\316	\323$\210\316	\324
$\210\316	\325\326$\210\327c-\207" [start end ring str ringthing tip nil format "#<RING: %d, %d max>" ring-length ring-size 0 ring-ref "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" prefix prebuttontext] 5 (#$ . 8559)])
#@73 Insert the contents of HASH-TABLE inserting PREFIX before each element.
(defalias 'data-debug-insert-hash-table #[(hash-table prefix) "\301\302\"\207" [hash-table maphash #[(key value) "\304	\305\306\307\n##\210\304	\305\310\307\n##\207" [key prefix font-lock-comment-face value data-debug-insert-thing dd-propertize "key " face "val "] 7]] 3 (#$ . 9328)])
#@56 Insert the contents of the hash-table button at POINT.
(defalias 'data-debug-insert-hash-table-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent hash-table get-text-property ddebug ddebug-indent nil 1 data-debug-insert-hash-table make-string 32 "> "] 5 (#$ . 9694)])
#@116 Insert HASH-TABLE as expandable button with recursive prefix PREFIX and PREBUTTONTEXT in front of the button text.
(defalias 'data-debug-insert-hash-table-button #[(hash-table prefix prebuttontext) "\304\305\306\"\307\310#\304\n	Q\311\312\nG\313\n\314\305\315\316!\317!\203%\320\202&\321\322!\323!%\324\325&\326\261)\207" [hash-table string prefix prebuttontext dd-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"] 16 (#$ . 10046)])
#@69 Insert the contents of WIDGET inserting PREFIX before each element.
(defalias 'data-debug-insert-widget-properties #[(widget prefix) "@A	\205%\305	A@\306\307\310	@\"\311\f#\312P#\210	AA\211\204\n\313*\207" [widget rest type prefix font-lock-comment-face data-debug-insert-thing dd-propertize format "%s" face " : " nil] 8 (#$ . 10744)])
#@52 Insert the contents of the widget button at POINT.
(defalias 'data-debug-insert-widget-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent widget get-text-property ddebug ddebug-indent nil 1 data-debug-insert-widget-properties make-string 32 "# "] 5 (#$ . 11095)])
#@196 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.
(defalias 'data-debug-insert-widget #[(widget prefix prebuttontext) "\304\305\306@\"\307\310#\304\n	Q\311\312\nG\313\n\314\305\315@GS\316\245#\317\320&\321\261)\207" [widget string prefix prebuttontext dd-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"] 14 (#$ . 11443)])
#@95 Insert all the parts of STUFFLIST.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-stuff-list #[(stufflist prefix) "\205!\302<\203@\202	\303#\210<\205\243\211\204\304\207" [stufflist prefix data-debug-insert-thing "" nil] 5 (#$ . 12078)])
#@59 Insert the stuff found at the stuff list button at POINT.
(defalias 'data-debug-insert-stuff-list-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent stufflist get-text-property ddebug ddebug-indent nil 1 data-debug-insert-stuff-list make-string 32 "> "] 5 (#$ . 12379)])
#@155 Insert a button representing STUFFLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff list button.
(defalias 'data-debug-insert-stuff-list-button #[(stufflist prefix prebuttontext) "`\306\3071\310\311\312!\"0\202\210\313@<\204\314@!\203#\315\202'\310\316\"
\n\261\210`\317\nGZ\320\321$\210\317\f\322$\210\317\f\323
G$\210\317\f\324
$\210\317\f\325	$\210\317\f\326\327$\210\330c,\207" [stufflist tip str end start prefix 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" prebuttontext] 6 (#$ . 12734)])
#@97 Insert all the parts of STUFFVECTOR.
PREFIX specifies what to insert at the start of each line.
(defalias 'data-debug-insert-stuff-vector #[(stuffvector prefix) "\303\211	GW\205\304	H\n\305#\210T\211\202)\207" [idx stuffvector prefix 0 data-debug-insert-thing ""] 5 (#$ . 13530)])
#@61 Insert the stuff found at the stuff vector button at POINT.
(defalias 'data-debug-insert-stuff-vector-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311\312\n\313\"\314P\"\210	b+\207" [point start indent stuffvector get-text-property ddebug ddebug-indent nil 1 data-debug-insert-stuff-vector make-string 32 "[ "] 5 (#$ . 13825)])
#@159 Insert a button representing STUFFVECTOR.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff vector button.
(defalias 'data-debug-insert-stuff-vector-button #[(stuffvector prefix prebuttontext) "`\306\307\310\nG\"\211
\261\210`\311	GZ	\312\313$\210\311	\314\n$\210\311	\315
G$\210\311	\316
$\210\311	\317\f$\210\311	\320\321$\210\322c,\207" [start end stuffvector str tip prefix 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" prebuttontext] 6 (#$ . 14188)])
#@71 Insert attached properties and possibly the value of symbol at POINT.
(defalias 'data-debug-insert-symbol-from-point #[(point) "\304\305\"\304\306\"\307\307\210`\310u\210\311!\2042\312!\2032\313J\314\n\315\"\316P\317\320\321\322#\323P#\210\324\325!\314\n\315\"\316P\"\210	b+\207" [point start indent symbol get-text-property ddebug ddebug-indent nil 1 fboundp boundp data-debug-insert-thing make-string 32 "> " dd-propertize "value" face font-lock-comment-face " " data-debug-insert-property-list symbol-plist] 7 (#$ . 14874)])
#@148 Insert a button representing SYMBOL.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the symbol button.
(defalias 'data-debug-insert-symbol-button #[(symbol prefix prebuttontext) "\304!\203\305\306\307!P\310\311#\202(\312!\203$\305\313\307!P\310\314#\202(\315\316\"\305\n	Q\317\320\nG\321\n\322\323\324\325&\326\261)\207" [symbol string prefix prebuttontext fboundp dd-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"] 12 (#$ . 15422)])
#@202 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.
(defalias 'data-debug-insert-string #[(thing prefix prebuttontext) "\305\306	\"\203\307\310\311\211	$\202\305\312	\"\203$\307\313\311\211	$\202\n\314\315\316	\"\317\f#\306\261)\207" [thing newstr prefix prebuttontext font-lock-string-face string-match "\n" replace-match "\\n" t "	" "\\t" dd-propertize format "\"%s\"" face] 6 (#$ . 16095)])
#@202 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.
(defalias 'data-debug-insert-number #[(thing prefix prebuttontext) "	\304\305\306\n\"\307#\310\261\207" [prefix prebuttontext thing font-lock-string-face dd-propertize format "%S" face "\n"] 6 (#$ . 16658)])
#@213 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.
(defalias 'data-debug-insert-lambda-expression #[(thing prefix prebuttontext) "\304!\305	\n\306$)\207" [thing txt prefix prebuttontext prin1-to-string data-debug-insert-simple-thing font-lock-keyword-face] 5 (#$ . 17077)])
#@165 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.
(defalias 'data-debug-insert-nil #[(thing prefix prebuttontext) "	\261\210\304c\210`\305\306c\210`\307c\210\310\n\311\312$*\207" [prefix prebuttontext end start ": " nil "nil" "\n" put-text-property face font-lock-variable-name-face] 5 (#$ . 17522)])
#@165 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.
(defalias 'data-debug-insert-simple-thing #[(thing prefix prebuttontext face) "	\261\210`\306\307\310\f\"c\210`\311c\210\312\n\305
$*\207" [prefix prebuttontext end start thing face nil format "%s" "\n" put-text-property] 5 (#$ . 17950)])
#@219 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.
(defalias 'data-debug-insert-custom #[(thingstring prefix prebuttontext face) "	\261\210`\306\fc\210`\307c\210\310\n\305
$*\207" [prefix prebuttontext end start thingstring face nil "\n" put-text-property] 5 (#$ . 18366)])
#@63 Alist of methods used to insert things into an Ddebug buffer.
(defvar data-debug-thing-alist '((null . data-debug-insert-nil) (data-debug-overlay-p . data-debug-insert-overlay-button) ((lambda (thing) (and (consp thing) (data-debug-overlay-p (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)) (#$ . 18819))
#@193 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.
(defalias 'data-debug-add-specialized-thing #[(predicate fcn) "	B\n\211A\211\n\235?\205\f
B\241+\207" [predicate fcn data-debug-thing-alist second first entry] 4 (#$ . 19776)])
#@228 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.
(defalias 'data-debug-insert-thing #[(thing prefix prebuttontext &optional parent) "\306\3072P	\310\211\203M@\211@\f!\203F\3111.\nA\f
$\210\312\307\310\"0\202E\210\3131C\nA\f
#\210\312\307\310\"0\202E\210\310\210A\211\204*\3100\203^\314\315\316\f\"
\317$\210)\320\310!\207" [inhibit-read-only data-debug-thing-alist test --dolist-tail-- thing prefix t done nil (error) throw (error) data-debug-insert-simple-thing format "%S" bold set-buffer-modified-p prebuttontext parent] 6 (#$ . 20159)])
(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 "\301\302 !\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\317#\210\303\321\317#\210)\207" [table make-syntax-table standard-syntax-table modify-syntax-entry 59 ". 12" 10 ">" 34 "\"" 45 "_" 92 "\\" 96 "'" 39 44] 4) (#$ . 20987))
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\207" [prop --dolist-tail-- defvaralias data-debug-map data-debug-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6)
#@28 Keymap used in data-debug.
(defvar data-debug-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210)\207" [km 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] 4) (#$ . 21675))
#@34 Hook run when data-debug starts.
(custom-declare-variable 'data-debug-mode-hook nil '(#$ . 22146) :group 'data-debug :type 'hook)
(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 #[nil "\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 (#$ . 23471) nil])
#@43 Create a new data-debug buffer with NAME.
(defalias 'data-debug-new-buffer #[(name) "\303!\304	!\210	q\210\305\306 \210\307 \210	)\207" [name b buffer-read-only get-buffer-create pop-to-buffer nil erase-buffer data-debug-mode] 2 (#$ . 24316)])
#@43 Go to the next line in the Ddebug buffer.
(defalias 'data-debug-next #[nil "\300y\210\301 \210\302\303 w\207" [1 beginning-of-line "- *><[]" point-at-eol] 2 (#$ . 24569) nil])
#@47 Go to the previous line in the Ddebug buffer.
(defalias 'data-debug-prev #[nil "\300y\210\301 \210\302\303 w\207" [-1 beginning-of-line "- *><[]" point-at-eol] 2 (#$ . 24751) 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 #[nil "\300 \210\301 \210\302 \207" [data-debug-contract-current-line data-debug-next data-debug-expand-current-line] 1 (#$ . 24939) 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 #[nil "\300 \210\301 \210\302 \207" [data-debug-contract-current-line data-debug-prev data-debug-expand-current-line] 1 (#$ . 25230) nil])
#@49 Return non-nil if the current line is expanded.
(defalias 'data-debug-current-line-expanded-p #[nil "\302 \3031\212\304\210\305u\210\302 )0\202\210\306	V*\207" [ni ti current-indentation (error) nil 1 0] 2 (#$ . 25524)])
#@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 #[nil "\300`\301\"?\207" [get-text-property ddebug-noexpand] 3 (#$ . 25760)])
#@72 Expand the current line (if possible).
Do nothing if already expanded.
(defalias 'data-debug-expand-current-line #[nil "\302 \203\303 ?\205\304`\305\"\306\211\205	`!\210\307 *\207" [inhibit-read-only fcn data-debug-line-expandable-p data-debug-current-line-expanded-p get-text-property ddebug-function t beginning-of-line] 4 (#$ . 26000)])
#@76 Contract the current line (if possible).
Do nothing if already contracted.
(defalias 'data-debug-contract-current-line #[nil "\304 \203L\305`\306\"\203L\307 \310\311\210\312u\210`\311\3131<\307 	V\204,\314\315!\2035\311\210\312u\210\202`\2110\202@\210d\211\210\n|\210\316u\210\317 \210,\320\311!\207" [inhibit-read-only ti end start 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] 3 (#$ . 26354)])
#@51 Expand or contract anything at the current point.
(defalias 'data-debug-expand-or-contract #[nil "\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 (#$ . 26897) nil])
#@45 Expand or contract anything at event EVENT.
(defalias 'data-debug-expand-or-contract-mouse #[(event) "A@@\302	\303\"\210\212\304!\210\305 *\207" [event win select-window t mouse-set-point data-debug-expand-or-contract] 3 (#$ . 27237) "e"])
#@51 Data debug STUFF in a buffer named *NAME DDebug*.
(defalias 'data-debug-show-stuff #[(stuff name) "\302\303\304Q!\210\305	\306\307#\210eb\210\310 \205\311 \207" [name stuff data-debug-new-buffer "*" " DDebug*" data-debug-insert-thing "?" "" data-debug-line-expandable-p data-debug-expand-current-line] 4 (#$ . 27486)])
#@70 Dump out the contents of some expression EXPR in edebug with ddebug.
(defalias 'data-debug-edebug-expr #[(expr) "\302!\211\204\303\304\"\202\305	\306\")\207" [expr v eval message "Expression %s is nil." data-debug-show-stuff "expression"] 4 (#$ . 27814) (list (let ((minibuffer-completing-symbol t)) (read-from-minibuffer "Eval: " nil read-expression-map t 'read-expression-history)))])
#@176 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.
(defalias 'data-debug-eval-expression #[(expr) "\204
\306	!\nB\202'\307\310!\311\211\306	!\nB
)\f=\204&*\n@:\2044\312\n@!\203?\n@\313\314\")\207\315\n@\316\"\317\n@!\211\203T\320\316\"\210)\207" [eval-expression-debug-on-error expr values new-value old-value debug-on-error eval make-symbol "t" nil vectorp data-debug-show-stuff "Expression" prin1 t eval-expression-print-format princ v str] 5 (#$ . 28215) (list (let ((minibuffer-completing-symbol t)) (read-from-minibuffer "Eval: " nil read-expression-map t 'read-expression-history)))])
(provide 'data-debug)