Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
emacs-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
advice.elc
60.71
KB
-rw-r--r--
assoc.elc
4.37
KB
-rw-r--r--
authors.elc
27.41
KB
-rw-r--r--
autoload.elc
15.7
KB
-rw-r--r--
avl-tree.elc
15.92
KB
-rw-r--r--
backquote.elc
4.46
KB
-rw-r--r--
benchmark.elc
3.33
KB
-rw-r--r--
bindat.elc
10.84
KB
-rw-r--r--
byte-opt.elc
34.22
KB
-rw-r--r--
byte-run.elc
6.65
KB
-rw-r--r--
bytecomp.elc
124.99
KB
-rw-r--r--
check-declare.elc
8.77
KB
-rw-r--r--
checkdoc.elc
65.08
KB
-rw-r--r--
cl-compat.elc
4.28
KB
-rw-r--r--
cl-extra.elc
21.48
KB
-rw-r--r--
cl-indent.elc
13.98
KB
-rw-r--r--
cl-loaddefs.el
39.57
KB
-rw-r--r--
cl-macs.elc
99.36
KB
-rw-r--r--
cl-seq.elc
43.98
KB
-rw-r--r--
cl-specs.el
13.87
KB
-rw-r--r--
cl.elc
20.74
KB
-rw-r--r--
copyright.elc
8.64
KB
-rw-r--r--
crm.elc
7.94
KB
-rw-r--r--
cust-print.elc
12.77
KB
-rw-r--r--
debug.elc
24.86
KB
-rw-r--r--
derived.elc
10.72
KB
-rw-r--r--
disass.elc
5.09
KB
-rw-r--r--
easy-mmode.elc
14.85
KB
-rw-r--r--
easymenu.elc
20.15
KB
-rw-r--r--
edebug.elc
100.82
KB
-rw-r--r--
eldoc.elc
15.31
KB
-rw-r--r--
elint.elc
19.76
KB
-rw-r--r--
elp.elc
12.78
KB
-rw-r--r--
ewoc.elc
28.62
KB
-rw-r--r--
find-func.elc
17.26
KB
-rw-r--r--
find-gc.elc
3.74
KB
-rw-r--r--
float-sup.elc
1.39
KB
-rw-r--r--
generic.elc
6.55
KB
-rw-r--r--
gulp.elc
4.82
KB
-rw-r--r--
helper.elc
3.84
KB
-rw-r--r--
levents.elc
10.29
KB
-rw-r--r--
lisp-mnt.elc
21.87
KB
-rw-r--r--
lisp-mode.elc
37.14
KB
-rw-r--r--
lisp.elc
21.61
KB
-rw-r--r--
lmenu.elc
11.67
KB
-rw-r--r--
lucid.elc
6.22
KB
-rw-r--r--
macroexp.elc
4.45
KB
-rw-r--r--
map-ynp.elc
6.3
KB
-rw-r--r--
pp.elc
5.09
KB
-rw-r--r--
re-builder.elc
22.36
KB
-rw-r--r--
regexp-opt.elc
4.43
KB
-rw-r--r--
regi.elc
6.15
KB
-rw-r--r--
ring.elc
6.41
KB
-rw-r--r--
rx.elc
26.61
KB
-rw-r--r--
shadow.elc
5.63
KB
-rw-r--r--
sregex.elc
12.45
KB
-rw-r--r--
syntax.elc
5.18
KB
-rw-r--r--
tcover-ses.elc
14.68
KB
-rw-r--r--
tcover-unsafep.elc
4.09
KB
-rw-r--r--
testcover.elc
13.41
KB
-rw-r--r--
timer.elc
22.73
KB
-rw-r--r--
tq.elc
3.94
KB
-rw-r--r--
trace.elc
5.28
KB
-rw-r--r--
unsafep.elc
5.01
KB
-rw-r--r--
warnings.elc
9.61
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : edebug.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:54 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/edebug.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`edebug.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\"\210\303\304\305\306\307\310%\207" [defalias edebug-submit-bug-report report-emacs-bug custom-declare-group edebug nil "A source-level debugger for Emacs Lisp." :group lisp] 6) #@288 Functions to call before edebug is used. Each time it is set to a new value, Edebug will call those functions once and then reset `edebug-setup-hook' to nil. You could use this to load up Edebug specifications associated with a package you are using, but only when you also use Edebug. (custom-declare-variable 'edebug-setup-hook 'nil '(#$ . 818) :type 'hook :group 'edebug) #@432 If non-nil, evaluating defining forms instruments for Edebug. This applies to `eval-defun', `eval-region', `eval-buffer', and `eval-current-buffer'. `eval-region' is also called by `eval-last-sexp', and `eval-print-last-sexp'. You can use the command `edebug-all-defs' to toggle the value of this variable. You may wish to make it local to each buffer with (make-local-variable 'edebug-all-defs) in your `emacs-lisp-mode-hook'. (custom-declare-variable 'edebug-all-defs 'nil '(#$ . 1201) :type 'boolean :group 'edebug) #@202 Non-nil means evaluation of all forms will instrument for Edebug. This doesn't apply to loading or evaluations in the minibuffer. Use the command `edebug-all-forms' to toggle the value of this option. (custom-declare-variable 'edebug-all-forms 'nil '(#$ . 1730) :type 'boolean :group 'edebug) #@372 Non-nil means all macro call arguments may be evaluated. If this variable is nil, the default, Edebug will *not* wrap macro call arguments as if they will be evaluated. For each macro, an `edebug-form-spec' overrides this option. So to specify exceptions for macros that have some arguments evaluated and some not, use `def-edebug-spec' to specify an `edebug-form-spec'. (custom-declare-variable 'edebug-eval-macro-args 'nil '(#$ . 2030) :type 'boolean :group 'edebug) #@345 If non-nil, Edebug saves and restores the window configuration. That takes some time, so if your program does not care what happens to the window configurations, it is better to set this variable to nil. If the value is a list, only the listed windows are saved and restored. `edebug-toggle-save-windows' may be used to change this variable. (custom-declare-variable 'edebug-save-windows 't '(#$ . 2506) :type '(choice boolean (repeat string)) :group 'edebug) #@471 If non-nil, save and restore point in all displayed buffers. Saving and restoring point in other buffers is necessary if you are debugging code that changes the point of a buffer that is displayed in a non-selected window. If Edebug or the user then selects the window, the buffer's point will be changed to the window's point. Saving and restoring point in all buffers is expensive, since it requires selecting each window twice, so enable this only if you need it. (custom-declare-variable 'edebug-save-displayed-buffer-points 'nil '(#$ . 2975) :type 'boolean :group 'edebug) #@253 Initial execution mode for Edebug, if non-nil. If this variable is non-nil, it specifies the initial execution mode for Edebug when it is first activated. Possible values are step, next, go, Go-nonstop, trace, Trace-fast, continue, and Continue-fast. (custom-declare-variable 'edebug-initial-mode ''step '(#$ . 3563) :type '(choice (const step) (const next) (const go) (const Go-nonstop) (const trace) (const Trace-fast) (const continue) (const Continue-fast)) :group 'edebug) #@295 Non-nil means display a trace of function entry and exit. Tracing output is displayed in a buffer named `*edebug-trace*', one function entry or exit per line, indented by the recursion level. You can customize by replacing functions `edebug-print-trace-before' and `edebug-print-trace-after'. (custom-declare-variable 'edebug-trace 'nil '(#$ . 4048) :type 'boolean :group 'edebug) #@316 If non-nil, Edebug tests coverage of all expressions debugged. This is done by comparing the result of each expression with the previous result. Coverage is considered OK if two different results are found. Use `edebug-display-freq-count' to display the frequency count and coverage information for a definition. (custom-declare-variable 'edebug-test-coverage 'nil '(#$ . 4437) :type 'boolean :group 'edebug) #@112 If non-nil, continue defining or executing any keyboard macro. Use this with caution since it is not debugged. (custom-declare-variable 'edebug-continue-kbd-macro 'nil '(#$ . 4855) :type 'boolean :group 'edebug) #@77 If non-nil, default value of `print-length' for printing results in Edebug. (custom-declare-variable 'edebug-print-length '50 '(#$ . 5073) :type 'integer :group 'edebug) #@76 If non-nil, default value of `print-level' for printing results in Edebug. (custom-declare-variable 'edebug-print-level '50 '(#$ . 5249) :type 'integer :group 'edebug) #@77 If non-nil, default value of `print-circle' for printing results in Edebug. (custom-declare-variable 'edebug-print-circle 't '(#$ . 5423) :type 'boolean :group 'edebug) #@240 Non-nil if Edebug should unwrap results of expressions. This is useful when debugging macros where the results of expressions are instrumented expressions. But don't do this when results might be circular or an infinite loop will result. (custom-declare-variable 'edebug-unwrap-results 'nil '(#$ . 5599) :type 'boolean :group 'edebug) #@446 Value bound to `debug-on-error' while Edebug is active. If `debug-on-error' is non-nil, that value is still used. If the value is a list of signal names, Edebug will stop when any of these errors are signaled from Lisp code whether or not the signal is handled by a `condition-case'. This option is useful for debugging signals that *are* handled since they would otherwise be missed. After execution is resumed, the error is signaled again. (custom-declare-variable 'edebug-on-error 't '(#$ . 5942) :type '(choice (const :tag "off") (repeat :menu-tag "When" :value (nil) (symbol :format "%v")) (const :tag "always" t)) :group 'edebug) #@56 Value bound to `debug-on-quit' while Edebug is active. (custom-declare-variable 'edebug-on-quit 't '(#$ . 6587) :type 'boolean :group 'edebug) #@119 If non-nil, an expression to test for at every stop point. If the result is non-nil, then break. Errors are ignored. (custom-declare-variable 'edebug-global-break-condition 'nil '(#$ . 6737) :type 'sexp :group 'edebug) #@74 Number of seconds to pause when execution mode is `trace' or `continue'. (custom-declare-variable 'edebug-sit-for-seconds '1 '(#$ . 6963) :type 'number :group 'edebug) #@37 For compatibility with old version. (defalias 'def-edebug-form-spec '(macro . #[(symbol spec-form) "\300\301\302\303#\207" [put symbol edebug-form-spec (eval spec-form)] 4 (#$ . 7137)])) (make-obsolete 'def-edebug-form-spec 'def-edebug-spec "22.1") (defalias 'get-edebug-spec #[(symbol) "\302N\303\2119\203 \n\302N\211\203 \211\202 \n*\207" [symbol indirect edebug-form-spec nil] 3]) #@145 Return t if SPEC uses only extant spec symbols. An extant spec symbol is a symbol that is not a function and has a `edebug-form-spec' property. (defalias 'edebug-basic-spec #[(spec) "<\203 \301\302\215\2079\205 \303!?\205 \304N\207" [spec basic (byte-code "\203 \301@!\204 \302\303\304\"\210A\211\204 \305\207" [spec edebug-basic-spec throw basic nil t] 4) functionp edebug-form-spec] 2 (#$ . 7537)]) #@55 Integer used by `edebug-gensym' to produce new names. (defvar edebug-gensym-index 0 (#$ . 7958)) #@207 Generate a fresh uninterned symbol. There is an optional argument, PREFIX. PREFIX is the string that begins the new name. Most people take just the default, except when debugging needs suggest otherwise. (defalias 'edebug-gensym #[(&optional prefix) "\204 \304\305\306\n\204% \307 !P T\310 !\204\n \311 !\211\203 \n*\207" [prefix newname newsymbol edebug-gensym-index "G" nil "" int-to-string intern-soft make-symbol] 4 (#$ . 8062)]) #@102 Return t if OBJECT is a lambda list keyword. A lambda list keyword is a symbol that starts with `&'. (defalias 'edebug-lambda-list-keywordp #[(object) "9\205\f \301!\302H\303U\207" [object symbol-name 0 38] 2 (#$ . 8515)]) (defalias 'edebug-last-sexp #[nil "\300\212\301\302!\210`)`{!@\207" [read-from-string forward-sexp -1] 3]) #@54 Return a list of windows, in order of `next-window'. (defalias 'edebug-window-list #[nil "\301\302\303!\210\237)\207" [window-list nil walk-windows #[(w) " B\211\207" [w window-list] 2]] 2 (#$ . 8853)]) (defalias 'edebug-lookup-function #[(object) "9\203 \301!\203 K\211\202 \207" [object fboundp] 3]) (put 'edebug-lookup-function 'byte-optimizer 'byte-compile-inline-expand) #@64 Return the macro named by OBJECT, or nil if it is not a macro. (defalias 'edebug-macrop #[(object) "\2119\203 \301!\203 K\211\202 )\211<\205+ @\302=\205+ \303A!\205+ \207" [object fboundp macro functionp] 4 (#$ . 9247)]) (defalias 'edebug-sort-alist #[(alist function) "\301\302\"\207" [alist sort #[(e1 e2) " @\n@\"\207" [function e1 e2] 3]] 3]) #@42 Name of the buffer to put trace info in. (defconst edebug-trace-buffer "*edebug-trace*" (#$ . 9615)) (defalias 'edebug-pop-to-buffer #[(buffer &optional window) "\304!\203 \305! =\203 \202> \305\306 ! =\203 \306 \202> \307 !\206> \310\311!\2031 \312 \202> \313\n!\314\315\215)\206> \312 \316!\210\317 \"\210\320\321\"\207" [window buffer edebug-trace-buffer trace-window edebug-window-live-p window-buffer selected-window edebug-get-buffer-window one-window-p nomini split-window get-buffer-window found (byte-code "\303\304\305\"\304\211\205. @\211\306 =\204& \n=\204& \307!\204& \310\311\"\210 A\211\204 \304*\207" [elt --dolist-tail-- trace-window window-list nil nomini selected-window window-dedicated-p throw found] 4) select-window set-window-buffer set-window-hscroll 0] 3]) (defalias 'edebug-get-displayed-buffer-points #[nil "\301\302\303!\210)\207" [list nil walk-windows #[(w) "\302 =?\205 \303!\304!B B\211\207" [w list selected-window window-buffer window-point] 3]] 2]) (defalias 'edebug-set-buffer-points #[(buffer-points) "r\301\302\")\207" [buffer-points mapcar #[(buf-point) "\301@!\205 @q\210Ab\207" [buf-point buffer-live-p] 2]] 3]) (defalias 'edebug-current-windows #[(which-windows) "<\203\n \301\302\"\207\303 \207" [which-windows mapcar #[(window) "\301!\205 \302!\303!\304!\305!\257\207" [window edebug-window-live-p window-buffer window-point window-start window-hscroll] 6] current-window-configuration] 3]) (defalias 'edebug-set-windows #[(window-info) "<\203\n \301\302\"\207\303!\207" [window-info mapcar #[(one-window-info) "\205 \301\302\"\207" [one-window-info apply #[(window buffer point start hscroll) "\305!\205 \306 \"\210\307\n\"\210\310 \"\210\311\f\"\207" [window buffer point start hscroll edebug-window-live-p set-window-buffer set-window-point set-window-start set-window-hscroll] 3]] 3] set-window-configuration] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\307\310!\204 \300\310\311K\"\210\300\207" [defalias edebug-get-buffer-window get-buffer-window edebug-sit-for sit-for edebug-input-pending-p input-pending-p fboundp edebug-original-read read] 3) #@723 Read one Lisp expression as text from STREAM, return as Lisp object. If STREAM is nil, use the value of `standard-input' (which see). STREAM or the value of `standard-input' may be: a buffer (read from point and advance it) a marker (read from where it points and advance it) a function (call it with no arguments for each character, call it with a char as argument to push a char back) a string (takes text from string, starting at the beginning) t (read text line using minibuffer and use it). This version, from Edebug, maybe instruments the expression. But the STREAM must be the current buffer to do so. Whether it instruments is also dependent on the values of `edebug-all-defs' and `edebug-all-forms'. (defalias 'edebug-read #[(&optional stream) "\204 p=\203 \302 \207\303!\207" [stream standard-input edebug-read-and-maybe-wrap-form edebug-original-read] 2 (#$ . 11802)]) (byte-code "\300\301!\204\f \302\301\303K\"\210\300\207" [fboundp edebug-original-eval-defun defalias eval-defun] 3) #@890 Evaluate the top-level form containing point, or after point. If the current defun is actually a call to `defvar', then reset the variable using its initial value expression even if the variable already has some other value. (Normally `defvar' does not change the variable's value if it already has a value.) Treat `defcustom' similarly. Reinitialize the face according to `defface' specification. With a prefix argument, instrument the code for Edebug. Setting `edebug-all-defs' to a non-nil value reverses the meaning of the prefix argument. Code is then instrumented when this function is invoked without a prefix argument If acting on a `defun' for FUNCTION, and the function was instrumented, `Edebug: FUNCTION' is printed in the minibuffer. If not instrumented, just FUNCTION is printed. If not acting on a `defun', the result of evaluation is displayed in the minibuffer. (defalias 'edebug-eval-defun #[(edebug-it) "? ?=?\306\n ?= \307 *\211 @\310=\203* \243\243\203* \311 A@!\210\202\205 @\312=\203G \313 A@!\203G \314 A@\315\316 8!\"\210\202\205 @\317=\203\205 \320 A@\"\321 A@\322\306#\210\323 \321\324 A@D\325\324 A@\326NDF\321\324 A@D\327\316 8FF\321 A@\326\306#\210\315 !\n\204\223 \330 !\202\224 +\207" [edebug-it edebug-all-defs edebugging edebug-result edebug-all-forms form nil edebug-read-top-level-form defvar makunbound defcustom default-boundp set-default eval 2 defface assq-delete-all put face-defface-spec prog1 quote 'saved-face saved-face 'customized-face princ face-new-frame-defaults] 9 (#$ . 12826) "P"]) (defalias 'edebug-defun 'edebug-eval-top-level-form) #@813 Evaluate the top level form point is in, stepping through with Edebug. This is like `eval-defun' except that it steps the code for Edebug before evaluating it. It displays the value in the echo area using `eval-expression' (which see). If you do this on a function definition such as a defun or defmacro, it defines the function and instruments its definition for Edebug, so it will do Edebug stepping when called later. It displays `Edebug: FUNCTION' in the echo area to indicate that FUNCTION is now instrumented for Edebug. If the current defun is actually a call to `defvar' or `defcustom', evaluating it this way resets the variable using its initial value expression even if the variable already has some other value. (Normally `defvar' and `defcustom' do not alter the value if there already is one.) (defalias 'edebug-eval-top-level-form #[nil "\302\303\211\304 *!\207" [edebug-all-defs edebug-all-forms eval-expression t edebug-read-top-level-form] 3 (#$ . 14445) nil]) (defalias 'edebug-read-top-level-form #[nil "`\301 \210\302 \210\303 b\210)\207" [starting-point end-of-defun beginning-of-defun edebug-read-and-maybe-wrap-form] 2]) (defalias 'edebug-all-defuns 'edebug-all-defs) #@39 Toggle edebugging of all definitions. (defalias 'edebug-all-defs #[nil "?\301\302\203 \303\202 \304\"\207" [edebug-all-defs message "Edebugging all definitions is %s." "on" "off"] 3 (#$ . 15651) nil]) #@33 Toggle edebugging of all forms. (defalias 'edebug-all-forms #[nil "?\301\302\203 \303\202 \304\"\207" [edebug-all-forms message "Edebugging all forms is %s." "on" "off"] 3 (#$ . 15863) nil]) (defalias 'edebug-install-read-eval-functions #[nil "?\205 \301\302\303\304\"\207" [load-read-function edebug-read defalias eval-defun edebug-eval-defun] 3 nil nil]) (defalias 'edebug-uninstall-read-eval-functions #[nil "\301\302\303\304K\"\207" [load-read-function nil defalias eval-defun edebug-original-eval-defun] 3 nil nil]) (byte-code "\301\302!\210\302B\303\302!\204 \304\302\305\"\210\305\207" [current-load-list make-variable-buffer-local edebug-form-data default-boundp set-default nil] 3) (defalias 'edebug-make-form-data-entry #[(symbol begin end) " \nE\207" [symbol begin end] 3]) (defalias 'edebug-form-data-name #[(entry) "@\207" [entry] 1]) (put 'edebug-form-data-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-form-data-begin #[(entry) "A@\207" [entry] 1]) (put 'edebug-form-data-begin 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-form-data-end #[(entry) "\3018\207" [entry 2] 2]) (put 'edebug-form-data-end 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-set-form-data-entry #[(entry name begin end) " \240\210A@\n\304\223\210\3058 \304\223\207" [entry name begin end nil 2] 3]) (put 'edebug-set-form-data-entry 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-get-form-data-entry #[(pnt &optional end-point) "\306\307 \203W \310 W\203W @\211 \211 A@) \n Z A\310 X\203S W\203S \f\203B \f\f \311\f8)U\203S \n\f \311\f8)X\203S \f+\202 \n+\207" [edebug-form-data closest-dist closest-entry rest entry begin nil 999999 0 2 pnt dist end-point] 4]) (defalias 'edebug-form-data-symbol #[nil "\301`!\211@)\206 \302\303!\207" [entry edebug-get-form-data-entry error "Not inside instrumented form"] 3]) (defalias 'edebug-make-top-form-data-entry #[(new-entry) "\302!\210 B\211\207" [new-entry edebug-form-data edebug-clear-form-data-entry] 2]) (defalias 'edebug-clear-form-data-entry #[(entry) "\205\n \302 \"\211\207" [entry edebug-form-data delq] 3]) (defalias 'edebug-syntax-error #[(&rest args) "\301\302\"\207" [args signal invalid-read-syntax] 3]) (byte-code "\303B\304\305\306\307\"\310 \311W\203 \n \312I\210 T\211\202 \n\313\314I\210\n\315\316I\210\n\317\320I\210\n\321\322I\210\n\323\324I\210\n\325\326I\210\n\327\330I\210\n\331\332I\210\n\333\334I\210\n\335\336I\210\n\337\340I\210\n*!\207" [current-load-list i table edebug-read-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst edebug-read-syntax-table #1#)) make-char-table syntax-table symbol 0 33 space 40 lparen 41 rparen 39 quote 96 backquote 44 comma 34 string 63 char 91 lbracket 93 rbracket 46 dot 35 hash] 5) (defalias 'edebug-next-token-class #[nil "\301 \210g\302=\203% \212\303u\210gH\304=\203 g\305U?\206 g\306>)\203% \304\207gH\207" [edebug-read-syntax-table edebug-skip-whitespace 46 1 symbol 59 (44 46)] 2]) (defalias 'edebug-skip-whitespace #[nil "\300\301w\210g\302U\205 \303\301w\210\300\301w\210\202 \207" [" \n\f" nil 59 "^\n"] 2]) (defalias 'edebug-read-sexp #[nil "\301 \211\302=\203 \303p!\202H \304=\203 \303p!\202H \305=\203+ \306u\210\305\307 D\202H \310=\2038 \311\307 D\202H \312=\203E \313\307 D\202H \303p!)\207" [class edebug-next-token-class symbol edebug-original-read string quote 1 edebug-read-sexp backquote \` comma \,] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list edebug-offsets default-boundp set-default nil edebug-offsets-stack edebug-current-offset edebug-read-dotted-list] 3) (defalias 'edebug-initialize-offsets #[nil "\301\211\207" [edebug-current-offset nil] 2]) (put 'edebug-initialize-offsets 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-store-before-offset #[(point) "C\n\203 \n \nAB\241\210\202 \306\211 \fB \211)\207" [point new-offset edebug-current-offset edebug-offsets edebug-offsets-stack edebug-read-dotted-list nil] 4]) (defalias 'edebug-store-after-offset #[(point) "\204 \211A\237\241\210\202 \304 \211AA\237 A@A\244\241\210 \n\244 A\211@\211\207" [edebug-read-dotted-list edebug-current-offset point edebug-offsets-stack nil] 4]) (defalias 'edebug-ignore-offset #[nil "\211AA\241\207" [edebug-current-offset] 2])(if macro-declaration-function (funcall macro-declaration-function (quote edebug-storing-offsets) (quote (declare (debug (form body)) (indent 1))))) (defalias 'edebug-storing-offsets '(macro . #[(point &rest body) "\302\303\304D BB\305BB\207" [point body unwind-protect progn edebug-store-before-offset ((edebug-store-after-offset (point)))] 4])) (byte-code "\301B\302\303!\207" [current-load-list edebug-read-alist (lambda (#1=#:defconst-tmp-var) (defconst edebug-read-alist #1#)) ((symbol . edebug-read-symbol) (lparen . edebug-read-list) (string . edebug-read-string) (quote . edebug-read-quote) (backquote . edebug-read-backquote) (comma . edebug-read-comma) (lbracket . edebug-read-vector) (hash . edebug-read-function))] 2) (defalias 'edebug-read-storing-offsets #[(stream) "\303\304\216\305`!\210\306 \236A\206 \307\n!*\207" [edebug-read-dotted-list edebug-read-alist stream nil ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset edebug-next-token-class edebug-original-read] 2]) (defalias 'edebug-read-symbol #[(stream) "\301!\207" [stream edebug-original-read] 2]) (defalias 'edebug-read-string #[(stream) "\301!\207" [stream edebug-original-read] 2]) (defalias 'edebug-read-quote #[(stream) "\301u\210\302\216\303`S!\210)\304\305!D\207" [stream 1 ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset quote edebug-read-storing-offsets] 3]) #@120 If non-zero, we're in a new-style backquote. It should never be negative. This controls how we read comma constructs. (defvar edebug-read-backquote-level 0 (#$ . 21770)) (defalias 'edebug-read-backquote #[(stream) "\302u\210\303\216\304`S!\210)\305T\306 !)D\207" [edebug-read-backquote-level stream 1 ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset \` edebug-read-storing-offsets] 3]) (defalias 'edebug-read-comma #[(stream) "`\304u\210\305g\306=\203 \307\304u\210\202 g\310=\203 \311\304u\210\312\n!\2031 \313\216\314!\210 )\202A \315\216\314!\210 )\nS\316 !)D*\207" [opoint symbol edebug-read-backquote-level stream 1 \, 46 \,\. 64 \,@ zerop ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-read-storing-offsets] 3]) (defalias 'edebug-read-function #[(stream) "\301u\210g\302=\203% \301u\210\303\216\304`\305Z!\210\306\307!\203 \310\202 \311)\312!D\207g\313>\2032 \314u\210\315!\207\316\317!\207" [stream 1 39 ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset 2 featurep cl function* function edebug-read-storing-offsets (58 66 79 88 98 111 120 49 50 51 52 53 54 55 56 57 48) -1 edebug-original-read edebug-syntax-error "Bad char after #"] 3]) (defalias 'edebug-read-list #[(stream) "\305u\210\306\307 \310>\2048 \307 \311=\203/ \204/ \312 !\203/ \305u\210\313\216\314`S!\210)\315B\202 \316\n!B\202 \237\307 \317=\203` \306\305u\210\316\n!\210 \244\210\307 \320=\204\\ \321\322!\210 <))\305u\210\207" [elements edebug-read-backquote-level stream dotted-form edebug-read-dotted-list 1 nil edebug-next-token-class (rparen dot) backquote zerop ((byte-code "\300`!\207" [edebug-store-after-offset] 2)) edebug-store-before-offset \` edebug-read-storing-offsets dot rparen edebug-syntax-error "Expected `)'"] 2]) (defalias 'edebug-read-vector #[(stream) "\302u\210\303\304 \305=\204 \306 !B\202 \307\310\237\")\302u\210\207" [elements stream 1 nil edebug-next-token-class rbracket edebug-read-storing-offsets apply vector] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list edebug-dotted-spec default-boundp set-default nil] 3) (defalias 'edebug-new-cursor #[(expressions offsets) "\302!\203 \303\304\" B\207" [expressions offsets vectorp append nil] 3]) (defalias 'edebug-set-cursor #[(cursor expressions offsets) " \240\210\n\241\210\207" [cursor expressions offsets] 2]) (put 'edebug-set-cursor 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-copy-cursor #[(cursor) "@AB\207" [cursor] 2]) (defalias 'edebug-cursor-expressions #[(cursor) "@\207" [cursor] 1]) (put 'edebug-cursor-expressions 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-cursor-offsets #[(cursor) "A\207" [cursor] 1]) (put 'edebug-cursor-offsets 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-empty-cursor #[(cursor) "@?\207" [cursor] 1]) (put 'edebug-empty-cursor 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-top-element #[(cursor) "@@\207" [cursor] 1]) (put 'edebug-top-element 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-top-element-required #[(cursor &rest error) "\203 \303 \304\"\210 \211@)\204 \305\303 \n#\210 \211@@)\207" [edebug-dotted-spec cursor error edebug-no-match "Dot expected." apply] 5]) (defalias 'edebug-top-offset #[(cursor) "A@\207" [cursor] 1]) (put 'edebug-top-offset 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-move-cursor #[(cursor) "\211@)\204 \301\302\"\210\211@A\240\210\211AA\241\210\207" [cursor edebug-no-match "Not enough arguments."] 4]) (defalias 'edebug-before-offset #[(cursor) "\211A)\211:\203 @@\202 S)\207" [cursor offset] 2]) (defalias 'edebug-after-offset #[(cursor) "\211A@)\211:\203 A\211\202 )\207" [cursor offset] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\304\207" [current-load-list edebug-gate default-boundp set-default nil edebug-def-name edebug-old-def-name edebug-error-point edebug-best-error] 3) (defalias 'edebug-read-and-maybe-wrap-form #[nil "\306\307\301!\210)\306\211\211\211\211\211\211\211\211\310\n\\\311 \\ \304\312\215\211\2037 \313\314\f\"\210. \207" [edebug-setup-hook temp-hook max-lisp-eval-depth max-specpdl-size no-match edebug-error-point nil run-hooks 800 2000 (byte-code "\301 \302\207" [result edebug-read-and-maybe-wrap-form1 nil] 1) apply edebug-syntax-error edebug-best-error edebug-gate edebug-&rest edebug-&optional edebug-def-name edebug-top-window-data result] 13]) (defalias 'edebug-read-and-maybe-wrap-form1 #[nil "\306\211\211\211\211\211\211 \212\307 \310=\203R \311u\210\307 \312=\203R \313p!\2119\205- \314 !\211<\2059 @\315=\211\205Q A@\316=\205Q \307 \312=\205Q \313p!)\f\203\221 \204a \203\205 \317\320p!C\nC\" \321 \322 !\323 !S\324 !ABC$@)\202\263 \325 \326\327 #\210\330 \202\263 \203\261 \317\320p!C\nC\" \321 \322 !\323 !\306$)\202\263 \330 .\207" [edebug-current-offset edebug-offsets-stack edebug-offsets def-name defining-form-p def-kind nil edebug-next-token-class lparen 1 symbol edebug-original-read get-edebug-spec &define name edebug-new-cursor edebug-read-storing-offsets edebug-make-form-wrapper edebug-before-offset edebug-after-offset symbol-name put edebug point-marker edebug-read-sexp spec edebug-all-defs edebug-all-forms cursor] 8]) (defalias 'edebug-interactive-p-name #[nil "\301\302\303\"!\207" [edebug-def-name intern format "edebug-%s-interactive-p"] 4]) #@38 Wrap the FORMS of a definition body. (defalias 'edebug-wrap-def-body #[(forms) "\203 \302\303 \304BC\305 !E\207\305 !\207" [edebug-def-interactive forms let edebug-interactive-p-name ((interactive-p)) edebug-make-enter-wrapper] 4 (#$ . 27534)]) (defalias 'edebug-make-enter-wrapper #[(forms) "\206 \206 \305\306!\307\310D\n\205 \311 \237B\312\313\314\fBBDF\207" [edebug-def-name edebug-old-def-name edebug-inside-func edebug-def-args forms edebug-gensym "edebug-anon" edebug-enter quote list function lambda nil] 7]) (defalias 'edebug-inc-offset #[(offset) " \nZ BT\207" [edebug-offset-index offset edebug-form-begin-marker edebug-offset-list] 3]) (defalias 'edebug-make-before-and-after-form #[(before-index form after-index) "\303\304D \nF\207" [before-index after-index form edebug-after edebug-before] 4]) (defalias 'edebug-make-after-form #[(form after-index) "\302\303 F\207" [after-index form edebug-after 0] 4]) #@204 Return the unwrapped SEXP or return it as is if it is not wrapped. The SEXP might be the result of wrapping a body, which is a list of expressions; a `progn' form will be returned enclosing these forms. (defalias 'edebug-unwrap #[(sexp) ":\2032 @\302=\203 \3038\207@\304=\2030 \3038A@AA\211G\305V\203, \306 B\202. @)\207\207\207" [sexp forms edebug-after 3 edebug-enter 1 progn] 3 (#$ . 28476)]) #@40 Return the SEXP recursively unwrapped. (defalias 'edebug-unwrap* #[(sexp) "\302! =\204 \302!\202 :\203 \303\304 \"\202 )\207" [sexp new-sexp edebug-unwrap mapcar edebug-unwrap*] 3 (#$ . 28888)]) (defalias 'edebug-defining-form #[(cursor form-begin form-end speclist) "\211\211@)\211A)A\211\n\240\210 \241\210\210+\306 \fS $\207" [cursor offsets expressions form-begin form-end speclist edebug-make-form-wrapper] 6]) (defalias 'edebug-make-form-wrapper #[(cursor form-begin form-end &optional speclist) "\306 \"\211\203 \n\211A@)\202 \307 \310\223 \310\311\310\n\211@)\310\211\211\211 ! \"#\203A \312$#\"\202H \313\314$!C! \206W \206W \315\316! \n\204k \317 \f\307 \310\223#\202\215 \n % & '\211'\240\210 A@&\310\223\210\320 8%\310\223\210,\321\n!\210\322\323 \"\210\324\"\237!\"\325 !\210\326 !\210(\204\300 \327p!\206\265 \330 \211 )\331)!B()\332 \333\f\310\"(F#\210 .\n\207" [form-begin form-end form-data-entry entry edebug-form-begin-marker edebug-inside-func edebug-get-form-data-entry make-marker nil 0 edebug-match edebug-make-enter-wrapper edebug-form edebug-gensym "edebug-anon" edebug-make-form-data-entry 2 edebug-make-top-form-data-entry message "Edebug: %s" vconcat edebug-clear-frequency-count edebug-clear-coverage get-buffer-window selected-window window-start put edebug edebug-def-interactive edebug-def-args edebug-def-name edebug-old-def-name result edebug-offset-index edebug-offset-list speclist cursor end begin name edebug-top-window-data window] 9]) (defalias 'edebug-clear-frequency-count #[(name) "\302\303\304 G\305\"#\207" [name edebug-offset-list put edebug-freq-count make-vector 0] 6]) (defalias 'edebug-clear-coverage #[(name) "\302\303\304 G\305\"#\207" [name edebug-offset-list put edebug-coverage make-vector unknown] 6]) (defalias 'edebug-form #[(cursor) "\306\307\"\211A@) :\203^ @\310=\203 \202~ @\2119\205' \311 ! \312 \n\" \f:\203J \f@\313=\203J \314 \n@\315!\316 !\fAB$\202Z \317\320\n@!\321 !\320 \211A)!#+\202~ 9\203} \322>\204o \323 !\203s \202~ \324 \320\nA!\"\202~ \325!\210*\207" [cursor form offset head spec new-cursor edebug-top-element-required "Expected form" quote get-edebug-spec edebug-new-cursor &define edebug-defining-form edebug-after-offset symbol-name edebug-make-before-and-after-form edebug-inc-offset edebug-list-form (t nil) keywordp edebug-make-after-form edebug-move-cursor] 7]) (defalias 'edebug-forms #[(cursor) "\301\302\"\207" [cursor edebug-match (&rest form)] 3]) (put 'edebug-forms 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-sexps #[(cursor) "\301\302\"\207" [cursor edebug-match (&rest sexp)] 3]) (put 'edebug-sexps 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-list-form-args #[(head cursor) "\306!\211\203D :\203 \307\211\310\f \"*\202i \311=\203) \f \312\f\313\")\202i \314=\2039 \f \312\f\315\")\202i 9\205i \f!\202i \316!\203b \203X \f \312\f\313\")\202i \f \312\f\315\")\202i \f \312\f\313\"))\207" [head spec edebug-error-point edebug-best-error cursor edebug-eval-macro-args get-edebug-spec nil edebug-match-sublist t edebug-match (&rest form) 0 (&rest sexp) edebug-macrop] 4]) (put 'edebug-list-form-args 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-list-form #[(cursor) "\306\307\"\310\311\211 \211\211@)\211A)A \211\240\210 \241\210\210+\f9\203\305 \f\2044 \311\202\343 \f\312=\203F \313 \314!\210\315 \202\343 \f\211\314! \316\f!\211 \203\232 :\203k \311\211 \317 \"*\202\300 \310=\203| \320\321\")\202\300 \322=\203\215 \320\323\")\202\300 9\205\300 !\202\300 \324\f!\203\271 \203\257 \320\321\")\202\300 \320\323\")\202\300 \320\321\")+B\202\343 \f:\203\340 \f@\325=\203\330 \320\326\"\202\343 \327\330\327#\202\343 \331\332!,\207" [cursor edebug-&rest edebug-&optional edebug-gate head offsets edebug-top-element-required "Expected elements" t nil interactive-p check-it edebug-move-cursor edebug-interactive-p-name get-edebug-spec edebug-match-sublist edebug-match (&rest form) 0 (&rest sexp) edebug-macrop \, (("," def-form) body) edebug-match-specs (lambda-expr body) edebug-syntax-error "Head of list form must be a symbol or lambda expression" expressions edebug-def-interactive spec edebug-error-point edebug-best-error edebug-eval-macro-args] 6]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\310\311!\207" [current-load-list edebug-after-dotted-spec default-boundp set-default nil edebug-matching-depth 0 edebug-max-depth (lambda (#1=#:defconst-tmp-var) (defconst edebug-max-depth #1#)) 150] 3) (defalias 'edebug-no-match #[(cursor &rest edebug-args) "\206 \306 !\n\206 \f\203\" \204\" \203 b\210\307\310 \"\207\311\312 \"\207" [edebug-error-point cursor edebug-best-error edebug-args edebug-gate edebug-&optional edebug-before-offset apply edebug-syntax-error throw no-match] 3]) (defalias 'edebug-match #[(cursor specs) "\306\211\211\211 \307 \307#-\207" [edebug-gate edebug-error-point edebug-best-error edebug-&rest edebug-&optional cursor nil edebug-match-specs specs] 5]) (defalias 'edebug-match-one-spec #[(cursor spec) "9\203\n \302 \"\207\303!\203 \304 \305\306\"\"\207;\203\" \307 \"\207<\205+ \310 \"\207" [spec cursor edebug-match-symbol vectorp edebug-match append nil edebug-match-string edebug-match-list] 5]) (defalias 'edebug-match-specs #[(cursor specs remainder-handler) " V\203\f \306\307!\202 T\n\204 \310\202\273 \n:\204( \311\312\f\nC #)\202\273 \f\211 @)<\204l \204: \313\f\314\"\210\310\f\211 @)\f\211 A) \fC \211 \240\210\f\241\210\f\210+\312\f\n #@+\202\273 \n@ \310 9\205 \315!\316H\211 \317=\203\222 \320!\f\nA\"\202\263 \321=\203\252 \nAA\320!\f\nA@\"\202\263 \nA\322\f\" \f #\244+)\207" [edebug-matching-depth edebug-max-depth specs edebug-dotted-spec cursor remainder-handler error "too deep - perhaps infinite loop in spec?" nil t edebug-match-specs edebug-no-match "Dotted spec required." symbol-name 0 38 get-edebug-spec 58 edebug-match-one-spec this-offset this-form offsets expressions spec rest first-char] 6]) (byte-code "\302\303\211\203 @\304@\305A#\210 A\211\204 *\303\207" [pair --dolist-tail-- ((&optional . edebug-match-&optional) (&rest . edebug-match-&rest) (&or . edebug-match-&or) (form . edebug-match-form) (sexp . edebug-match-sexp) (body . edebug-match-body) (&define . edebug-match-&define) (name . edebug-match-name) (:name . edebug-match-colon-name) (arg . edebug-match-arg) (def-body . edebug-match-def-body) (def-form . edebug-match-def-form) (lambda-expr . edebug-match-lambda-expr) (¬ . edebug-match-¬) (&key . edebug-match-&key) (place . edebug-match-place) (gate . edebug-match-gate)) nil put edebug-form-spec] 5) (defalias 'edebug-match-symbol #[(cursor symbol) "\304!\211\203 :\203 \305\n \"\202] \n!\202] \204$ \306\n!\202] \307!\203Y \310\n\311#\211<\203C @\312=\203C \305\n\313\"\202U !\204O \314\n\315#\210\316\n!\210 C)\202] \317\320\")\207" [symbol spec cursor sexp get-edebug-spec edebug-match edebug-match-nil fboundp edebug-top-element-required "Expected" \, (("," def-form)) edebug-no-match "failed" edebug-move-cursor error "%s is not a form-spec or function"] 5]) (defalias 'edebug-match-sexp #[(cursor) "\301\302\"\303!\210C\207" [cursor edebug-top-element-required "Expected sexp" edebug-move-cursor] 3]) (defalias 'edebug-match-form #[(cursor) "\301!C\207" [cursor edebug-form] 2]) (defalias 'edebug-match-place 'edebug-match-form) (defalias 'edebug-match-body #[(cursor) "\301\302\")\207" [cursor edebug-match (&rest form)] 3]) (put 'edebug-match-body 'byte-optimizer 'byte-compile-inline-expand) (defalias 'edebug-match-&optional #[(cursor specs) "\302 \302#\207" [cursor specs edebug-&optional-wrapper] 4]) (defalias 'edebug-&optional-wrapper #[(cursor specs remainder-handler) "\306\306 \211@) \211A) \307\310\215\204 \2024 \n \n \211 \240\210 \n\241\210 \210+\306-\207" [specs cursor this-offset this-form edebug-gate edebug-&optional nil no-match (byte-code "\304 \n#\305\207" [cursor specs remainder-handler result edebug-match-specs nil] 4) result offsets expressions] 6]) (defalias 'edebug-&rest-wrapper #[(cursor specs remainder-handler) "\204 \304\n #\207" [specs edebug-&rest cursor remainder-handler edebug-&optional-wrapper] 4]) (defalias 'edebug-match-&rest #[(cursor specs) "\305\211\306\f\306#+\207" [specs edebug-error-point edebug-best-error edebug-&rest cursor nil edebug-&rest-wrapper] 4]) (defalias 'edebug-match-&or #[(cursor specs) " \211@) \211A) \305\306\215+\207" [specs cursor this-offset this-form original-specs matched (byte-code "\203 \306\307\215\210A \n \211 \240\210 \f\241\210 \210+\202 \310\311 \312 $\207" [specs cursor this-form this-offset offsets expressions no-match (byte-code "\305\306\307\211\211\310 \f@\"+\"\207" [edebug-error-point edebug-best-error edebug-gate cursor specs throw matched nil edebug-match-one-spec] 5) apply edebug-no-match "Expected one of" original-specs] 6)] 4]) (defalias 'edebug-match-¬ #[(cursor specs) "\301\302\215\204 \303\304\"\210\305\207" [cursor no-match (byte-code "\303\212\304 \n\"\210*\303\207" [edebug-gate cursor specs nil edebug-match-&or] 3) edebug-no-match "Unexpected" nil] 3]) (put '&key 'edebug-form-spec 'edebug-match-&key) (defalias 'edebug-match-&key #[(cursor specs) "\302\303\304\305 \"B\"\207" [cursor specs edebug-match-&rest &or mapcar #[(pair) "\301\302\303@\"A@\"\207" [pair vector format ":%s"] 4]] 6]) (defalias 'edebug-match-gate #[(cursor) "\301\302\207" [edebug-gate t nil] 1]) (defalias 'edebug-match-list #[(cursor specs) "\203 \306\307 \n\307#)\306\207\n@\310 \311\n#\211 \312=\203E \nA@\211 9\203= \f =\2043 \313 \311\f#\210\314 !\210\315 \202A \316\317\n\")\202\216 <\203_ \320\321 \211A@)A\"\n\"C\314 !\210\202\216 \f\322=\203\211 \323 !\203\211 \320\321 \211A@)A\"\nA\" \314 !\210\324\322\")C\202\216 \313 \311\n#*\207" [edebug-dotted-spec cursor specs form spec edebug-gate nil edebug-match-specs edebug-top-element-required "Expected" quote edebug-no-match edebug-move-cursor t error "Bad spec: %s" edebug-match-sublist edebug-new-cursor vector vectorp apply result] 6]) (defalias 'edebug-match-sublist #[(cursor specs) "\304\305 \n\305# \211@)\203\" \203 \306\307 #\210\202\" \307 \310\n#\210)\207" [edebug-&optional cursor specs edebug-best-error nil edebug-match-specs apply edebug-no-match "Failed matching"] 6]) (defalias 'edebug-match-string #[(cursor spec) "\304\305 #\306 !\n=\204 \307\305 #\202 \310\311!\210\nC)\207" [cursor spec sexp edebug-gate edebug-top-element-required "Expected" intern edebug-no-match t edebug-move-cursor] 4]) (defalias 'edebug-match-nil #[(cursor) "\211@)??\205 \301\302\"\207" [cursor edebug-no-match "Unmatched argument(s)"] 4]) (defalias 'edebug-match-function #[(cursor) "\300\301!\207" [error "Use function-form instead of function in edebug spec"] 2]) (defalias 'edebug-match-&define #[(cursor specs) "\303\304!\211A)\211:\203 A\211\202\f )\n$\207" [cursor offsets specs edebug-make-form-wrapper edebug-before-offset] 6]) (defalias 'edebug-match-lambda-expr #[(cursor) "\306\307\"\211A@) :\205 @\2119\205 \310 ! \311 \f:\203D \f@\312=\203D \313\314 \n\"\n@\315!\316 !\fAB$C\317!\210\202H \320\307\"-\207" [cursor sexp offset head spec edebug-inside-func edebug-top-element-required "Expected lambda expression" get-edebug-spec nil &define edebug-defining-form edebug-new-cursor edebug-after-offset symbol-name edebug-move-cursor edebug-no-match] 7]) (defalias 'edebug-match-name #[(cursor) "\303\304\"\2119\204 \305\306\"\210\n\203 \307\310\311\n #!\202 \312!\210 )C\207" [cursor name edebug-def-name edebug-top-element-required "Expected name" edebug-no-match "Symbol expected for name of definition" intern format "%s@%s" edebug-move-cursor] 6]) (defalias 'edebug-match-colon-name #[(cursor spec) "\203 \302\303\304 #!\202 \305\207" [edebug-def-name spec intern format "%s@%s" nil] 5]) (defalias 'edebug-match-arg #[(cursor) "\303\304\"\2119\203 \305 !\203 \306\307 #\210\310!\210 \nB )C\207" [cursor edebug-arg edebug-def-args edebug-top-element-required "Expected arg" edebug-lambda-list-keywordp edebug-no-match "Bad argument:" edebug-move-cursor] 5]) (defalias 'edebug-match-def-form #[(cursor) "\302\303\304 !C!)C\207" [edebug-inside-func cursor nil edebug-make-enter-wrapper edebug-form] 3]) (defalias 'edebug-match-def-body #[(cursor) "\302\303 \304 \305\")!)C\207" [edebug-inside-func cursor t edebug-wrap-def-body edebug-match (&rest form)] 4]) #@73 Return non-nil if OBJECT is a symbol with an edebug-form-spec property. (defalias 'edebug-spec-p #[(object) "9\205 \301N\207" [object edebug-form-spec] 2 (#$ . 41593)]) (byte-code "\302\303\304\305#\210\302\306\304\307#\210\302\310\304\311#\210\302\312\304\313#\210\302\314\304\315#\210\302\315\304\316#\210\302\317\304\320#\210\302\321\304\322#\210\302\323\304\324#\210\302\324\304\325#\210\302\326\304\327#\210\302\330\304\331#\210\302\332\304\333#\210\302\334\304\335#\210\302\336\304\337#\210\302\340\304\341#\210\302\342\304\343#\210\302\344\304\345#\210\302\346\304\347#\210\302\350\304\351#\210\302\352\304\353#\210\302\354\304\352#\210\302\355\304\356#\210\302\357\304\355#\210\302\360\304\361#\210\302\362\304\363#\210\302\364\304\365#\210\302\366\304\367#\210\370\371\364\"\210\302\371\304\372#\210\302\373\304\374#\210\302\375\304\376#\210\302\377\304\317#\210\302\201@ \304\201A #\210\302\201B \304\201A #\210\302\201C \304\201A #\210\302\201D \304\201A #\210\302\201E \304\201A #\210\302\201F \304\201A #\210\302\201G \304\201A #\210\302\201H \304\201A #\210\302\201I \304\201A #\210\302\201J \304\201K #\210\302\201L \304\201M #\210\302\201N \304\201O #\210\302\201P \304\201Q #\210\302\201R \304\201S #\210\302\201T \304\201U #\210\302\201V \304\201W #\210\302\201X \304\201Y #\210\302\201Z \304\201[ #\210\302\201\\ \304\201] #\210\201^ B\201_ \201^ !\204\236\201` \201^ \201a \"\210\201^ \236\204\260\201^ \201b D B\201c B\201_ \201c !\204\313\201` \201c \201a \"\210\201d B\201_ \201d !\204\346\201` \201d \201e \"\210\201f B\201_ \201f !\204\201` \201f \201a \"\210\201g B\201_ \201g !\204 \201` \201g \201a \"\210\201h B\201i \201j !\210\201k B\201_ \201k !\204E\201` \201k \201l \"\210\201m B\201_ \201m !\204`\201` \201m \201a \"\210\201a \207" [current-load-list minor-mode-alist put def-edebug-spec edebug-form-spec (&define :name edebug-spec name &or "nil" edebug-spec-p "t" "0" (&rest edebug-spec)) edebug-spec-list ((edebug-spec . [&or nil edebug-spec])) edebug-spec (&or (vector &rest edebug-spec) ("vector" &rest edebug-spec) ("quote" symbolp) edebug-spec-list stringp [edebug-lambda-list-keywordp &rest edebug-spec] [keywordp gate edebug-spec] edebug-spec-p symbolp) quote sexp defconst defvar (symbolp &optional form stringp) defun (&define name lambda-list [&optional stringp] [&optional ("interactive" interactive)] def-body) defmacro (&define name lambda-list [&optional ("declare" &rest sexp)] def-body) arglist lambda-list (([&rest arg] [&optional ["&optional" arg &rest arg]] &optional ["&rest" arg])) interactive (&optional &or stringp def-form) function-form (&or ([&or "quote" "function"] &or symbolp lambda-expr) form) function (&or symbolp lambda-expr) lambda (&define lambda-list [&optional stringp] [&optional ("interactive" interactive)] def-body) macro (&define "lambda" lambda-list def-body) mapcar (function-form form) mapconcat (function-form form form) mapatoms (function-form &optional form) apply (function-form &rest form) funcall (function-form &rest form) let ((&rest &or (symbolp &optional form) symbolp) body) let* setq (&rest symbolp form) setq-default cond (&rest (&rest form)) condition-case (symbolp form &rest ([&or symbolp (&rest symbolp)] body)) \` (backquote-form) backquote-form (&or ([&or "," ",@"] &or ("quote" backquote-form) form) (backquote-form [&rest [¬ ","] backquote-form] . [&or nil backquote-form]) (vector &rest backquote-form) sexp) defalias edebug-\` (def-form) \, (&or ("quote" edebug-\`) def-form) \,@ (&define &or ("quote" edebug-\`) def-form) defsubst dont-compile t eval-when-compile eval-and-compile save-selected-window save-current-buffer delay-mode-hooks with-temp-file with-temp-message with-syntax-table push (form sexp) pop (sexp) 1value (form) noreturn (form) ad-dolist ((symbolp form &optional form) body) defadvice (&define name (name name &rest sexp) [&optional stringp] [&optional ("interactive" interactive)] def-body) easy-menu-define (symbolp body) with-custom-print body sregexq (&rest sexp) rx (&rest sexp) edebug-active default-boundp set-default nil " *Debugging*" edebug-stack edebug-stack-depth -1 edebug-offset-indices edebug-entered edebug-debugger (lambda (#1=#:defconst-tmp-var) (defconst edebug-debugger #1#)) edebug edebug-execution-mode step edebug-next-execution-mode] 4) #@694 Signal an error. Args are SIGNAL-NAME, and associated DATA. A signal name is a symbol with an `error-conditions' property that is a list of condition names. A handler for any of those names will get to handle this signal. The symbol `error' should always be one of them. DATA should be a list. Its elements are printed as part of the error message. If the signal is handled, DATA is made available to the handler. See `condition-case'. This is the Edebug replacement for the standard `signal'. It should only be active while Edebug is. It checks `debug-on-error' to see whether it should call the debugger. When execution is resumed, the error is signaled again. (fn SIGNAL-NAME DATA) (defalias 'edebug-signal #[(edebug-signal-name edebug-signal-data) "<\203 >\203 \304\305 \nB\"\210\306\307 \n\")\207" [debug-on-error edebug-signal-name edebug-signal-data signal-hook-function edebug error nil signal] 4 (#$ . 45919)]) (defalias 'edebug-enter #[(edebug-function edebug-args edebug-body) "\204p \306\307 \\\310\n\\ \f \f\206 \306 \311\312!\311\313! ! \" # $ % & '\314\216(\205C \315\211\316\315\211 \n ) *\206` +\206` ,,\315*\317-./#.\207-\320N\211 0@ 1-\321N -\322N \3231! 2-3B 3\3244B 4-\325N\203\263 \326,-\325N\327=\203\263 \330-\325\315#\2105\203\277 \331/!\202\302 / .\207" [edebug-entered max-lisp-eval-depth max-specpdl-size edebug-debugger debug-on-error debug-on-quit t 100 200 edebug-var-status pre-command-hook post-command-hook ((byte-code "\304\305\n\"\210\304\306 \"\207" [edebug-outside-executing-macro executing-kbd-macro edebug-outside-post-command-hook edebug-outside-pre-command-hook edebug-restore-status post-command-hook pre-command-hook] 3)) nil edebug-signal edebug-enter edebug edebug-freq-count edebug-coverage marker-buffer 0 edebug-on-entry step temp put edebug-enter-trace edebug-on-error edebug-on-quit overriding-local-map overriding-terminal-local-map executing-kbd-macro edebug-outside-post-command-hook edebug-outside-pre-command-hook edebug-outside-executing-macro edebug-outside-overriding-terminal-local-map edebug-outside-overriding-local-map cl-lexical-debug edebug-outside-debug-on-quit edebug-outside-debug-on-error debugger edebug-continue-kbd-macro signal-hook-function edebug-next-execution-mode edebug-initial-mode edebug-execution-mode edebug-function edebug-args edebug-body edebug-data edebug-def-mark edebug-buffer edebug-stack edebug-offset-indices edebug-trace] 16]) #@416 Return a cons cell describing the status of VAR's current binding. The purpose of this function is so you can properly undo subsequent changes to the same binding, by passing the status cons cell to `edebug-restore-status'. The status cons cell has the form (LOCUS . VALUE), where LOCUS can be a buffer (for a buffer-local binding), a frame (for a frame-local binding), or nil (if the default binding is current). (defalias 'edebug-var-status #[(var) "\301!JB\207" [var variable-binding-locus] 2 (#$ . 48417)]) #@85 Reset VAR based on STATUS. STATUS should be a list returned by `edebug-var-status'. (defalias 'edebug-restore-status #[(var status) "@A\304\n!\203 \305\n!\2050 r\nq\210 L)\2020 \306\n!\203- \307\n BC\"\2020 L*\207" [status value locus var bufferp buffer-live-p framep modify-frame-parameters] 4 (#$ . 48937)]) (defalias 'edebug-enter-trace #[(edebug-body) "T\305\306\307\310\n #!\210\f \211\311\307\312\n #!\210*\207" [edebug-stack-depth edebug-result edebug-function edebug-args edebug-body nil edebug-print-trace-before format "%s args: %s" edebug-print-trace-after "%s result: %s"] 6]) (put 'edebug-tracing 'edebug-form-spec '(form body)) #@99 Print MSG in *edebug-trace* before and after evaluating BODY. The result of BODY is also printed. (defalias 'edebug-tracing '(macro . #[(msg &rest body) "\302\303\304D\305\306\307\310 BE\311\312\313\314BBBDEF\207" [msg body let ((edebug-stack-depth (1+ edebug-stack-depth)) edebug-result) edebug-print-trace-before prog1 setq edebug-result progn edebug-print-trace-after format "%s result: %s" (edebug-result)] 10 (#$ . 49598)])) #@98 Function called to print trace info before expression evaluation. MSG is printed after `::::{ '. (defalias 'edebug-print-trace-before #[(msg) "\303\304\305 \306\"\n$\207" [edebug-trace-buffer edebug-stack-depth msg edebug-trace-display "%s{ %s" make-string 58] 6 (#$ . 50036)]) #@97 Function called to print trace info after expression evaluation. MSG is printed after `::::} '. (defalias 'edebug-print-trace-after #[(msg) "\303\304\305 \306\"\n$\207" [edebug-trace-buffer edebug-stack-depth msg edebug-trace-display "%s} %s" make-string 58] 6 (#$ . 50321)]) (defalias 'edebug-slow-before #[(edebug-before-index) "\204! \n\240\210 \n \nHTI\210\f\305>\203 \306 \203! \307\n\310\311#\210\n\207" [edebug-active edebug-offset-indices edebug-before-index edebug-freq-count edebug-execution-mode (Go-nonstop next) edebug-input-pending-p edebug-debugger before nil] 4]) (defalias 'edebug-fast-before #[(edebug-before-index) "\300\207" [nil] 1]) (defalias 'edebug-slow-after #[(edebug-before-index edebug-after-index edebug-value) "\203 \207\n \240\210\f \f HTI\210 \203 \306 \210 \307=\203' \310 \204' \207\311 \312 #\207" [edebug-active edebug-value edebug-offset-indices edebug-after-index edebug-freq-count edebug-test-coverage edebug-update-coverage Go-nonstop edebug-input-pending-p edebug-debugger after edebug-execution-mode] 4]) (defalias 'edebug-fast-after #[(edebug-before-index edebug-after-index edebug-value) "\207" [edebug-value] 1]) (defalias 'edebug-run-slow #[nil "\300\301\302\"\210\300\303\304\"\207" [defalias edebug-before edebug-slow-before edebug-after edebug-slow-after] 3]) (defalias 'edebug-run-fast #[nil "\300\301\302\"\210\300\303\304\"\207" [defalias edebug-before edebug-fast-before edebug-after edebug-fast-after] 3]) (edebug-run-slow) (defalias 'edebug-update-coverage #[nil " H\211\304=\206\" \n\305=\203 I\202\" \n=?\205\" \304I)\207" [edebug-coverage edebug-after-index old-result edebug-value ok-coverage unknown] 4]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list edebug-break-result default-boundp set-default nil edebug-global-break-result] 3) (defalias 'edebug-debugger #[(edebug-offset-index edebug-arg-mode edebug-value) "\203 \207\nA@\f \236\211 A@ \205 \306\307\310\217 \306 \2067 \2057 ?\2067 \311!\211\211\203N \312 8\203N \n\313 \"\nAAB\241\210\314>\203_ \204_ \315 \203b \316 \210 -\207" [inhibit-redisplay edebug-value edebug-data edebug-breakpoints edebug-offset-index edebug-break-data nil (byte-code "\302!\211\207" [edebug-global-break-condition edebug-global-break-result eval] 2) ((error)) eval 2 delq (go continue Continue-fast) edebug-input-pending-p edebug-display edebug-break-condition edebug-global-break-condition edebug-global-break edebug-break edebug-break-result edebug-execution-mode] 5]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306\307\310\"\207" [current-load-list edebug-eval-list default-boundp set-default nil edebug-previous-result defalias edebug-mark-marker mark-marker] 3) (defalias 'edebug-display #[nil "\306!\204 \307 \210\310\311 \312\313 8\nH\\\312\314 8\315 p`\316 \312\211\211\f\205( \317 \312\211 678 9 : ; < = > ? @ A B C D E F G H I ! J K\320\216 6\312\310 8 7 6 \321L!\204| \312 M\322\323N\"\210)O\324=\203\210 \325P!\210Q\203\223 \326Q!AR\203\234 \327 @\330LG@\"\210G\315 \240\210\331!\210\332G@!\210Lq\210`HIb\210O\333=\203\327 g\334>\204\327 \312 M\322\335N\"\210)G\336GA!\241\210\337 \203\356 \340S\310!\341 \210\342 \210O\322=\203\340S\342 \210\343 \210P@\344=\203\345\346!\210\202O\347P!\210\202OT\203KU\203-\345\350VW#\210\202OX\203=\345\351XY#\210\202OS\352=\204O\345\353!\210\202O\345\354!\210\312O\324=\203lT\203iS\352=\204i\355Z!\210\356 \210T\203\224S\357=\203\200\355Z!\210\202\256S\352=\203\216\355\360!\210\202\256\310!\202\256S\361=\203\243\355Z!\210\202\256S\362=\203\256\355\360!\210\363\216!\204\303S\364>\204\303O\322=\203\306\365 \210)p [Lq\210Hb\210[q. \207" [edebug-def-mark edebug-data edebug-offset-index unread-command-events edebug-eval-list overlay-arrow-position marker-position debug t with-timeout-suspend nil 2 3 selected-window edebug-mark edebug-eval-result-list ((byte-code "\306!\210 \n \306\207" [edebug-with-timeout-suspend edebug-outside-unread-command-events unread-command-events edebug-outside-o-a-p overlay-arrow-position edebug-outside-o-a-s with-timeout-unsuspend overlay-arrow-string edebug-outside-c-i-e-a cursor-in-echo-area edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows] 2)) buffer-name error "Buffer defining %s not found" after edebug-compute-previous-result edebug-current-windows edebug-get-displayed-buffer-points edebug-pop-to-buffer edebug-eval-display select-window before (40 35 96) "Source has changed - reevaluate definition of %s" edebug-adjust-window edebug-input-pending-p step edebug-stop edebug-overlay-arrow beep quit message "Quit" edebug-report-error "Global Break: %s => %s" "Break: %s => %s" Continue-fast "Break" "" edebug-sit-for edebug-previous-result continue 0 trace Trace-fast ((byte-code "\306 =\203\f \307 \202 \310!\211\203 \n \240\210\n\311 !\241\210)\312 !\211\203/ \f\205. \311\f!\203g \313!\210\203C \314!\210\f\203L \315\f \"\210\n@\316 !\203c \306 =\203c \315 \nA\317#\210)\202s \316!\203s \320!\210\321!\203~ q\210=\204\211 b\210\322\323 !\203\227 \323 \324\223\210\324\207" [edebug-buffer window edebug-window-data edebug-trace-buffer edebug-trace-window edebug-trace-window-start window-buffer selected-window edebug-get-buffer-window window-start get-buffer-window edebug-set-windows edebug-set-buffer-points set-window-start edebug-window-live-p no-force select-window buffer-name marker-buffer edebug-mark-marker nil edebug-save-windows edebug-outside-windows edebug-save-displayed-buffer-points edebug-buffer-points edebug-outside-window edebug-outside-buffer edebug-outside-point edebug-outside-mark] 5)) (step next) edebug-recursive-edit overlay-arrow-string cursor-in-echo-area default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w edebug-outside-c-i-e-a edebug-outside-o-a-s edebug-outside-o-a-p edebug-trace-window-start edebug-trace-window edebug-eval-buffer edebug-buffer-points edebug-outside-windows edebug-outside-unread-command-events edebug-outside-mark edebug-outside-point edebug-outside-buffer edebug-outside-window edebug-window-data edebug-buffer-outside-point edebug-point edebug-with-timeout-suspend edebug-active edebug-buffer debug-on-error edebug-function edebug-arg-mode edebug-value edebug-save-windows edebug-save-displayed-buffer-points edebug-execution-mode edebug-break edebug-global-break edebug-global-break-condition edebug-global-break-result edebug-break-condition edebug-break-result edebug-sit-for-seconds current-buffer] 21]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\301\207" [current-load-list edebug-number-of-recursions default-boundp set-default 0 edebug-recursion-depth] 3) (defalias 'edebug-recursive-edit #[nil "\212 q\210\306 )\307 \310\211\211\211\311 \n \f ! \" # $ % & ' ( ) * + , - . /\312\216 \313\310\211\211\211\211\211012\205b \f 3 4 5\314=\203\212 6\315>\204\212 \316\317!\210\320\3107\321 \210\322\216\323 .\"\207" [buffer-read-only edebug-outside-buffer standard-output standard-input defining-kbd-macro last-command match-data recursion-depth nil current-local-map ((byte-code "\n\f \n \f \306\207" [edebug-outside-last-command-event last-command-event edebug-outside-last-command last-command edebug-outside-this-command this-command nil edebug-outside-unread-command-char unread-command-char edebug-outside-current-prefix-arg current-prefix-arg edebug-outside-last-input-event last-input-event edebug-outside-last-event-frame last-event-frame edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-track-mouse track-mouse edebug-outside-standard-output standard-output edebug-outside-standard-input standard-input edebug-outside-defining-kbd-macro defining-kbd-macro] 1)) -1 go (after error) message "Break" t edebug-mode ((byte-code "\306 \203\n \307 !\210\n\203 \307\n!\210\310 !\210\311\f!\203: \fq\210 \312>\203( \313 \210\314!\210\315\316\317\320#\210\202> \321\322!\210\306\207" [signal-hook-function edebug-backtrace-buffer edebug-eval-buffer edebug-outside-match-data edebug-buffer edebug-execution-mode edebug-signal kill-buffer set-match-data buffer-name (go Go-nonstop) edebug-overlay-arrow use-local-map remove-hook kill-buffer-hook edebug-kill-buffer t get-buffer-create " bogus edebug buffer" edebug-buffer-read-only buffer-read-only edebug-outside-map] 4)) recursive-edit this-command unread-command-char current-prefix-arg last-input-event last-command-event last-event-frame last-nonmenu-event track-mouse edebug-outside-track-mouse edebug-outside-last-nonmenu-event edebug-outside-last-event-frame edebug-outside-last-command-event edebug-outside-last-input-event edebug-outside-current-prefix-arg edebug-outside-unread-command-char edebug-outside-this-command edebug-outside-last-command edebug-outside-defining-kbd-macro edebug-outside-standard-input edebug-outside-standard-output edebug-outside-map edebug-inside-windows edebug-backtrace-buffer edebug-interactive-p edebug-entered edebug-recursion-depth edebug-outside-match-data edebug-buffer-read-only edebug-outside-debug-on-error edebug-outside-debug-on-quit edebug-continue-kbd-macro debug-on-quit debug-on-error edebug-execution-mode edebug-arg-mode signal-hook-function] 20]) (defalias 'edebug-adjust-window #[(old-start) "\301 \2041 \203 \302\303 \"\210\301 \2041 \302\303 \212`\304 W\203# \305\202( \306 \307\245[y\210\310 \210`)\"\210\304 \207" [old-start pos-visible-in-window-p set-window-start selected-window window-start -1 window-height 2 beginning-of-line] 4]) #@50 Association list of arrows for each edebug mode. (defconst edebug-arrow-alist '((Continue-fast . "=") (Trace-fast . "-") (continue . ">") (trace . "->") (step . "=>") (next . "=>") (go . "<>") (Go-nonstop . "..")) (#$ . 60137)) (defalias 'edebug-overlay-arrow #[nil "\212\305 \210`) \n\236A\306 \211p\223)\207" [pos edebug-execution-mode edebug-arrow-alist overlay-arrow-string overlay-arrow-position beginning-of-line make-marker] 4]) #@174 Toggle the saving and restoring of all windows. Also, each time you toggle it on, the inside and outside window configurations become the same as the current configuration. (defalias 'edebug-toggle-save-all-windows #[nil "?\211\203 \303!\211\304\305\203 \306\202 \307\"\207" [edebug-save-windows edebug-outside-windows edebug-inside-windows edebug-current-windows message "Window saving is %s for all windows." "on" "off"] 4 (#$ . 60584) nil]) (defalias 'edebug-changing-windows '(macro . #[(&rest body) "\301\302\303\304\305\306\"BBBB\207" [body let ((window (selected-window))) (setq edebug-inside-windows (edebug-current-windows t)) (edebug-set-windows edebug-outside-windows) append ((setq edebug-outside-windows (edebug-current-windows edebug-save-windows)) (edebug-set-windows edebug-inside-windows))] 7])) #@182 Toggle the saving and restoring of the selected window. Also, each time you toggle it on, the inside and outside window configurations become the same as the current configuration. (defalias 'edebug-toggle-save-selected-window #[nil "\304=\203# \305 \306\304!\307 !\210\310 \311 \"\306!\307\n!\210)\202S \305 >\203; \310\305 \236 \"\310\305 \"\202S \305 \306\304!\307 !\210 B\306!\307\n!\210)\312\313\305 >\203` \314\202a \315\305 #\207" [edebug-save-windows window edebug-inside-windows edebug-outside-windows t selected-window edebug-current-windows edebug-set-windows delq edebug-window-list message "Window saving is %s for %s." "on" "off"] 4 (#$ . 61414) nil]) #@130 Toggle the saving and restoring of windows. With prefix, toggle for just the selected window. Otherwise, toggle for all windows. (defalias 'edebug-toggle-save-windows #[(arg) "\203 \301 \207\302 \207" [arg edebug-toggle-save-selected-window edebug-toggle-save-all-windows] 1 (#$ . 62105) "P"]) #@61 Show the debug windows and where we stopped in the program. (defalias 'edebug-where #[nil "\204 \303\304!\210\305 !\210\nb\207" [edebug-active edebug-buffer edebug-point error "Edebug is not active" edebug-pop-to-buffer] 2 (#$ . 62407) nil]) #@75 Change to the outside window configuration. Use `edebug-where' to return. (defalias 'edebug-view-outside #[nil "\204 \305\306!\210\307 !\310 !\210\fb\210\311\312\313\314!\"\207" [edebug-active edebug-save-windows edebug-inside-windows edebug-outside-windows edebug-outside-point error "Edebug is not active" edebug-current-windows edebug-set-windows message "Window configuration outside of Edebug. Return with %s" substitute-command-keys "\\<global-map>\\[edebug-where]"] 4 (#$ . 62657) nil]) #@157 Bounce the point in the outside current buffer. If prefix argument ARG is supplied, sit for that many seconds before returning. The default is one second. (defalias 'edebug-bounce-point #[(arg) "\204 \301\302!\210\212\303\213)\207" [edebug-active error "Edebug is not active" ((byte-code "\305!\210 b\210\306\307p`\310\311 !\203 \312\311 !\202 \313$\210\314\n!\210\305 \f@\"\207" [edebug-outside-buffer edebug-outside-point arg edebug-buffer edebug-window-data edebug-pop-to-buffer message "Current buffer: %s Point: %s Mark: %s" marker-buffer edebug-mark-marker marker-position "<not set>" edebug-sit-for] 6))] 2 (#$ . 63162) "p"]) (defalias 'edebug-find-stop-point #[nil "\306 \211\307N\211\203 \310 !\203 \311\312\"\210 )\211@\313\n8 \212\314\315!\203+ \316\317x\210`) Z \317\211 \fG\320\211W\203V \fHV\203V T\211\202> W\203n \fHX\203n B\202r \321\322\".\207" [edebug-def-name data edebug-data edebug-def-mark offset-vector offset edebug-form-data-symbol edebug markerp error "%s is not instrumented for Edebug" 2 looking-at "[ ]" " " nil 0 message "Point is not on an expression in %s." len i] 4]) #@65 Move point to the next breakpoint, or first if none past point. (defalias 'edebug-next-breakpoint #[nil "\306 \211\205\203 @A \307N\211@ A@ \310 8 \311 \204* \312\313!\202\201 \211 \203C @@\nX\203C A\211\2041 \203N @\202P @\f@H\\b\210\312\314\3108\203i \315\202j \316A@\203} \317\320\321A@!\"\202~ \316P\").)\207" [edebug-stop-point edebug-def-name index edebug-data edebug-def-mark edebug-breakpoints edebug-find-stop-point edebug 2 nil message "No breakpoints in this function." "%s" "Temporary " "" format "Condition: %s" edebug-safe-prin1-to-string offset-vector breakpoint breaks] 8 (#$ . 64313) nil]) #@212 Modify the breakpoint for the form at point or after it. Set it if FLAG is non-nil, clear it otherwise. Then move to that point. If CONDITION or TEMPORARY are non-nil, add those attributes to the breakpoint. (defalias 'edebug-modify-breakpoint #[(flag &optional condition temporary) "\306 \211\205r @A \307N\211@ A@ \310 8 \311 \n \236\312 \"\203S \313\nE B\314\"\203K \315\316 #\210\202d \315\317 \"\210\202d \203` \315\320 \"\210\202d \315\321!\210 A \240\210\f\nH\\b.)\207" [edebug-stop-point edebug-def-name index edebug-data edebug-def-mark edebug-breakpoints edebug-find-stop-point edebug 2 nil delq edebug-sort-alist < message "Breakpoint set in %s with condition: %s" "Breakpoint set in %s" "Breakpoint unset in %s" "No breakpoint here" offset-vector present flag condition temporary] 5 (#$ . 64963)]) #@91 Set the breakpoint of nearest sexp. With prefix argument, make it a temporary breakpoint. (defalias 'edebug-set-breakpoint #[(arg) "\301\302\303#\207" [arg edebug-modify-breakpoint t nil] 4 (#$ . 65812) "P"]) #@39 Clear the breakpoint of nearest sexp. (defalias 'edebug-unset-breakpoint #[nil "\300\301!\207" [edebug-modify-breakpoint nil] 2 (#$ . 66028) nil]) #@52 Set `edebug-global-break-condition' to EXPRESSION. (defalias 'edebug-set-global-break-condition #[(expression) "\211\207" [expression edebug-global-break-condition] 2 (#$ . 66181) (list (let ((initial (and edebug-global-break-condition (format "%s" edebug-global-break-condition)))) (read-from-minibuffer "Global Condition: " initial read-expression-map t (if (equal (car read-expression-history) initial) '(read-expression-history . 1) 'read-expression-history))))]) (defalias 'edebug-set-mode #[(mode shortmsg msg) "T\306 =\203 \307\310 \"\210\311 \207 \307\310 \"\207" [edebug-recursion-depth mode edebug-execution-mode shortmsg edebug-next-execution-mode msg recursion-depth message "%s" exit-recursive-edit] 3]) (defalias 'edebug-step-through-mode 'edebug-step-mode) #@29 Proceed to next stop point. (defalias 'edebug-step-mode #[nil "\300\301\302\303#\207" [edebug-set-mode step "" "Edebug will stop at next stop point."] 4 (#$ . 66966) nil]) #@37 Proceed to next `after' stop point. (defalias 'edebug-next-mode #[nil "\300\301\302\303#\207" [edebug-set-mode next "" "Edebug will stop after next eval."] 4 (#$ . 67144) nil]) #@91 Go, evaluating until break. With prefix ARG, set temporary break at current point and go. (defalias 'edebug-go-mode #[(arg) "\203 \301\302!\210\303\304\305\306#\207" [arg edebug-set-breakpoint t edebug-set-mode go "Go..." "Edebug will go until break."] 4 (#$ . 67327) "P"]) #@95 Go, evaluating without debugging. You can use `edebug-stop', or any editing command, to stop. (defalias 'edebug-Go-nonstop-mode #[nil "\300\301\302\303#\207" [edebug-set-mode Go-nonstop "Go-Nonstop..." "Edebug will not stop at breaks."] 4 (#$ . 67609) nil]) #@75 Begin trace mode. Pauses for `edebug-sit-for-seconds' at each stop point. (defalias 'edebug-trace-mode #[nil "\300\301\302\303#\207" [edebug-set-mode trace "Tracing..." "Edebug will trace with pause."] 4 (#$ . 67873) nil]) #@94 Trace with no wait at each step. Updates the display at each stop point, but does not pause. (defalias 'edebug-Trace-fast-mode #[nil "\300\301\302\303#\207" [edebug-set-mode Trace-fast "Trace fast..." "Edebug will trace without pause."] 4 (#$ . 68102) nil]) #@79 Begin continue mode. Pauses for `edebug-sit-for-seconds' at each break point. (defalias 'edebug-continue-mode #[nil "\300\301\302\303#\207" [edebug-set-mode continue "Continue..." "Edebug will pause at breakpoints."] 4 (#$ . 68366) nil]) #@95 Trace with no wait at each step. Updates the display at each break point, but does not pause. (defalias 'edebug-Continue-fast-mode #[nil "\300\301\302\303#\207" [edebug-set-mode Continue-fast "Continue fast..." "Edebug will stop and go at breakpoints."] 4 (#$ . 68610) nil]) #@68 Proceed to first stop-point at or after current position of point. (defalias 'edebug-goto-here #[nil "\300\301!\207" [edebug-go-mode t] 2 (#$ . 68891) nil]) #@85 Stop execution and do not continue. Useful for exiting from trace or continue loop. (defalias 'edebug-stop #[nil "\300\301!\207" [message "Stop"] 2 (#$ . 69054) nil]) #@129 Proceed from the current point to the end of the ARGth sexp ahead. If there are not ARG sexps ahead, then do `edebug-step-out'. (defalias 'edebug-forward-sexp #[(arg) "\300\301\302\217\207" [nil (byte-code "\302\303 !\210\304\302!)\207" [parse-sexp-ignore-comments arg t forward-sexp edebug-go-mode] 2) ((error (edebug-step-out)))] 3 (#$ . 69228) "p"]) #@204 Proceed from the current point to the end of the containing sexp. If there is no containing sexp that is not the top level defun, go to the end of the last sexp, or if that is the same point, then step. (defalias 'edebug-step-out #[nil "\300\301\302\217\207" [nil (byte-code "\301\302\303!\210\212\302\303!\210)\304\301!)\207" [parse-sexp-ignore-comments t up-list 1 edebug-go-mode] 2) ((error (byte-code "`\301\302!\210`U\203 \303 \202 \304\305!)\207" [start-point down-list -1 edebug-step-mode edebug-go-mode t] 2)))] 3 (#$ . 69589) nil]) (defalias 'edebug-instrument-function #[(func) "\303N\304 !\203 r\305 !q\210 b\210\306 \210)\202D :\203) \307\310\"\210\202D \311!\211A\2046 \312\313!\210r\n@q\210\nAb\210\306 \210*)\207" [func func-marker loc edebug markerp marker-buffer edebug-eval-top-level-form message "%s is already instrumented." find-function-noselect error "Could not find the definition in its file"] 4]) #@263 Instrument the definition of the function or macro about to be called. Do this when stopped before the form or it will be too late. One side effect of using this command is that the next time the function or macro is called, Edebug will be called there as well. (defalias 'edebug-instrument-callee #[nil "\302\303!\204\n \304\305!\207\212\306\307!\210\302\303!\203 \310`!\211@)\202\" \311p!)\312 !)\207" [entry func looking-at "(" error "You must be before a list form" down-list 1 edebug-get-form-data-entry edebug-original-read edebug-instrument-function] 3 (#$ . 70534) nil]) #@208 Step into the definition of the function or macro about to be called. This first does `edebug-instrument-callee' to ensure that it is instrumented. Then it does `edebug-on-entry' and switches to `go' mode. (defalias 'edebug-step-in #[nil "\301 \211\205 \302\303\"\210\304\305!)\207" [func edebug-instrument-callee edebug-on-entry temp edebug-go-mode nil] 4 (#$ . 71123) nil]) #@162 Cause Edebug to stop when FUNCTION is called. With prefix argument, make this temporary so it is automatically cancelled the first time the function is entered. (defalias 'edebug-on-entry #[(function &optional flag) "\302\303 \203 \304\202\f \305#\207" [function flag put edebug-on-entry temp t] 4 (#$ . 71510) "aEdebug on entry to: \nP"]) (defalias 'cancel-edebug-on-entry #[(function) "\301\302\303#\207" [function put edebug-on-entry nil] 4 nil "aEdebug on entry to: "]) (byte-code "\300\301!\204 \301\302KM\210\300\207" [fboundp edebug-original-debug-on-entry debug-on-entry] 2) #@122 Set mode to Go-nonstop, and exit to top-level. This is useful for exiting even if `unwind-protect' code may be executed. (defalias 'edebug-top-level-nonstop #[nil "\301\302 \207" [edebug-execution-mode Go-nonstop top-level] 1 (#$ . 72104) nil]) (put 'edebug-outside-excursion 'edebug-form-spec t) #@95 Evaluate an expression list in the outside context. Return the result of the last expression. (defalias 'edebug-outside-excursion '(macro . #[(&rest body) "\301\302\303\304\305\306\307\301\310\311\312BBBB\313BBE\257\207" [body save-excursion (if edebug-save-windows (progn (setq edebug-inside-windows (edebug-current-windows edebug-save-windows)) (edebug-set-windows edebug-outside-windows))) (set-buffer edebug-buffer) (set-match-data edebug-outside-match-data) let ((last-command-event edebug-outside-last-command-event) (last-command edebug-outside-last-command) (this-command edebug-outside-this-command) (unread-command-char edebug-outside-unread-command-char) (unread-command-events edebug-outside-unread-command-events) (current-prefix-arg edebug-outside-current-prefix-arg) (last-input-event edebug-outside-last-input-event) (last-event-frame edebug-outside-last-event-frame) (last-nonmenu-event edebug-outside-last-nonmenu-event) (track-mouse edebug-outside-track-mouse) (standard-output edebug-outside-standard-output) (standard-input edebug-outside-standard-input) (executing-kbd-macro edebug-outside-executing-macro) (defining-kbd-macro edebug-outside-defining-kbd-macro) (pre-command-hook (cdr edebug-outside-pre-command-hook)) (post-command-hook (cdr edebug-outside-post-command-hook)) (overlay-arrow-position edebug-outside-o-a-p) (overlay-arrow-string edebug-outside-o-a-s) (cursor-in-echo-area edebug-outside-c-i-e-a) (default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)) unwind-protect (set-buffer edebug-outside-buffer) (goto-char edebug-outside-point) (if (marker-buffer (edebug-mark-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) ((if edebug-save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-last-command-event last-command-event edebug-outside-last-command last-command edebug-outside-this-command this-command edebug-outside-unread-command-char unread-command-char edebug-outside-unread-command-events unread-command-events edebug-outside-current-prefix-arg current-prefix-arg edebug-outside-last-input-event last-input-event edebug-outside-last-event-frame last-event-frame edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-track-mouse track-mouse edebug-outside-standard-output standard-output edebug-outside-standard-input standard-input edebug-outside-executing-macro executing-kbd-macro edebug-outside-defining-kbd-macro defining-kbd-macro edebug-outside-o-a-p overlay-arrow-position edebug-outside-o-a-s overlay-arrow-string edebug-outside-c-i-e-a cursor-in-echo-area edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows) (setcdr edebug-outside-pre-command-hook pre-command-hook) (setcdr edebug-outside-post-command-hook post-command-hook))] 12 (#$ . 72408)])) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list cl-debug-env default-boundp set-default nil] 3) (defalias 'edebug-eval #[(edebug-expr) "\203 \302\303 \"!\207\302 !\207" [cl-debug-env edebug-expr eval cl-macroexpand-all] 4]) (defalias 'edebug-safe-eval #[(edebug-expr) "\300\301\302\217\207" [edebug-err (edebug-eval edebug-expr) ((error (byte-code "\301\302@\303NA@#\207" [edebug-err edebug-format "%s: %s" error-message] 4)))] 3]) (defalias 'edebug-report-error #[(edebug-value) "\301\302@\303N\206 \304\305@\"\306\307A\310##\207" [edebug-value message "%s: %s" error-message format "peculiar error (%s)" mapconcat #[(edebug-arg) "\301!\207" [edebug-arg prin1-to-string] 2] ", "] 7]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list print-level default-boundp set-default nil print-circle] 3) (defalias 'edebug-safe-prin1-to-string #[(value) "\306\206 \n\206 \f\206 \307 \n \307\310\311\217-\207" [edebug-print-length print-length edebug-print-level print-level edebug-print-circle print-circle t nil (edebug-prin1-to-string value) ((error "#Apparently circular structure#")) print-readably print-escape-newlines] 5]) (defalias 'edebug-compute-previous-result #[(edebug-previous-value) "\203 \303 !\304\305 !\306 !Q\211\207" [edebug-unwrap-results edebug-previous-value edebug-previous-result edebug-unwrap* "Result: " edebug-safe-prin1-to-string eval-expression-print-format] 4]) #@28 Print the previous result. (defalias 'edebug-previous-result #[nil "\301\302\"\207" [edebug-previous-result message "%s"] 3 (#$ . 76709) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [defalias edebug-prin1 prin1 edebug-print print edebug-prin1-to-string prin1-to-string edebug-format format edebug-message message] 3) #@123 Evaluate an expression in the outside environment. If interactive, prompt for the expression. Print result in minibuffer. (defalias 'edebug-eval-expression #[(edebug-expr) "\306\212\203 \307!\310\n!\210 q\210\311\f!\210 A A !\"# $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7\312\216\2128q\2109b\210\313\314 !\203 \314 :\315\223\210\316;!<B<\317<@!\320<@!P.!\207" [edebug-save-windows edebug-inside-windows edebug-outside-windows edebug-buffer edebug-outside-match-data edebug-outside-last-command-event princ edebug-current-windows edebug-set-windows set-match-data ((byte-code "\203 \306 !\210\n\f \n \f !\"#$%&'(\241\210)*\241\207" [edebug-save-windows edebug-inside-windows last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command edebug-set-windows this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-events edebug-outside-unread-command-events current-prefix-arg edebug-outside-current-prefix-arg last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-kbd-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w edebug-outside-pre-command-hook pre-command-hook edebug-outside-post-command-hook post-command-hook] 2)) marker-buffer edebug-mark-marker nil edebug-eval edebug-safe-prin1-to-string eval-expression-print-format edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-events edebug-outside-current-prefix-arg edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-kbd-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event current-prefix-arg unread-command-events unread-command-char this-command last-command last-command-event edebug-outside-buffer edebug-outside-point edebug-outside-mark edebug-expr values] 21 (#$ . 77099) (list (read-from-minibuffer "Eval: " nil read-expression-map t 'read-expression-history))]) #@83 Evaluate sexp before point in the outside environment. Print value in minibuffer. (defalias 'edebug-eval-last-sexp #[nil "\300\301 !\207" [edebug-eval-expression edebug-last-sexp] 2 (#$ . 80137) nil]) #@109 Evaluate sexp before point in outside environment; insert value. This prints the value into current buffer. (defalias 'edebug-eval-print-last-sexp #[nil "\306 \212 \203 \307 !\310 !\210\fq\210\311 !\210 A!A\"#$% & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9\312\216\212:q\210;b\210\313\314 !\203\202 \314 <\315\223\210\316\317!!. =p /\320\321!\210\320=!\210\320\321!+\207" [edebug-form edebug-save-windows edebug-inside-windows edebug-outside-windows edebug-buffer edebug-outside-match-data edebug-last-sexp edebug-current-windows edebug-set-windows set-match-data ((byte-code "\203 \306 !\210\n\f \n \f !\"#$%&'(\241\210)*\241\207" [edebug-save-windows edebug-inside-windows last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command edebug-set-windows this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-events edebug-outside-unread-command-events current-prefix-arg edebug-outside-current-prefix-arg last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-kbd-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w edebug-outside-pre-command-hook pre-command-hook edebug-outside-post-command-hook post-command-hook] 2)) marker-buffer edebug-mark-marker nil edebug-safe-prin1-to-string edebug-safe-eval princ "\n" edebug-outside-last-command-event edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-events edebug-outside-current-prefix-arg edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-kbd-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event current-prefix-arg unread-command-events unread-command-char this-command last-command last-command-event edebug-outside-buffer edebug-outside-point edebug-outside-mark edebug-result-string] 20 (#$ . 80345) nil]) (byte-code "\301B\304\301!\204 \305\301\306\"\210 \204+ \307\n\310\311#\210\307\n\312\313#\210\307\n\314\315#\210\307\n\316\317#\210\320B\304\320!\204s\305\320\321\n!\307 \322\311#\210\307 \323\313#\210\307 \324\315#\210\307 \325\326#\210\307 \327\330#\210\307 \331\332#\210\307 \333\334#\210\307 \335\336#\210\307 \337\340#\210\307 \341\342#\210\307 \343\344#\210\307 \345\346#\210\307 \347\350#\210\307 \351\352#\210\307 \353\354#\210\307 \355\356#\210\307 \357\360#\210\307 \361\362#\210\307 \363\364#\210\307 \365\366#\210\307 \367\370#\210\307 \371\372#\210\307 \373\374#\210\307 \375\376#\210\307 \377\201@ #\210\307 \201A \201B #\210\307 \201C \317#\210\307 \201D \201E #\210\307 \201F \201G #\210\307 \201H \201E #\210\307 \201I \201J #\210\307 \201K \201L #\210\307 \201M \201N #\210\307 \201O \201P #\210\307 \201Q \201R #\210\307 \201S \311#\210\307 \201T \313#\210\307 \201U \315#\210\307 \201V \362#\210\307 \201W \364#\210\307 \201X \201Y #\210\307 \201Z \317#\210 )\"\210\301\207" [current-load-list gud-inhibit-global-bindings emacs-lisp-mode-map map default-boundp set-default "*Non-nil means don't do global rebindings of C-x C-a subcommands." define-key "" edebug-step-mode "" edebug-next-mode "" edebug-go-mode "\f" edebug-where edebug-mode-map copy-keymap " " "n" "g" "G" edebug-Go-nonstop-mode "t" edebug-trace-mode "T" edebug-Trace-fast-mode "c" edebug-continue-mode "C" edebug-Continue-fast-mode "f" edebug-forward-sexp "h" edebug-goto-here "I" edebug-instrument-callee "i" edebug-step-in "o" edebug-step-out "q" top-level "Q" edebug-top-level-nonstop "a" abort-recursive-edit "S" edebug-stop "b" edebug-set-breakpoint "u" edebug-unset-breakpoint "B" edebug-next-breakpoint "x" edebug-set-conditional-breakpoint "X" edebug-set-global-break-condition "r" edebug-previous-result "e" edebug-eval-expression "" edebug-eval-last-sexp "E" edebug-visit-eval-list "w" "v" edebug-view-outside "p" edebug-bounce-point "P" "W" edebug-toggle-save-windows "?" edebug-help "d" edebug-backtrace "-" negative-argument "=" edebug-temp-display-freq-count "" "" "" " " "" "" #[nil "\300\301!\207" [edebug-set-breakpoint t] 2 nil nil] "\f"] 6) #@67 Prefix key for global edebug commands, available from any buffer. (defvar global-edebug-prefix "X" (#$ . 85495)) #@59 Global map of edebug commands, available from any buffer. (defvar global-edebug-map (byte-code "\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\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210)\207" [map make-sparse-keymap define-key " " edebug-step-mode "g" edebug-go-mode "G" edebug-Go-nonstop-mode "t" edebug-trace-mode "T" edebug-Trace-fast-mode "c" edebug-continue-mode "C" edebug-Continue-fast-mode "b" edebug-set-breakpoint "u" edebug-unset-breakpoint "x" edebug-set-conditional-breakpoint "X" edebug-set-global-break-condition "w" edebug-where "W" edebug-toggle-save-windows "q" top-level "Q" edebug-top-level-nonstop "a" abort-recursive-edit "=" edebug-display-freq-count] 4) (#$ . 85615)) (byte-code "\302!\210\303 \"\207" [global-edebug-prefix global-edebug-map global-unset-key global-set-key] 3) #@25 Describe `edebug-mode'. (defalias 'edebug-help #[nil "\300\301!\207" [describe-function edebug-mode] 2 (#$ . 86649) nil]) #@886 Mode for Emacs Lisp buffers while in Edebug. In addition to all Emacs Lisp commands (except those that modify the buffer) there are local and global key bindings to several Edebug specific commands. E.g. `edebug-step-mode' is bound to \[edebug-step-mode] in the Edebug buffer and \<global-map>\[edebug-step-mode] in any buffer. Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'. The edebug buffer commands: \{edebug-mode-map} Global commands prefixed by `global-edebug-prefix': \{global-edebug-map} Options: edebug-setup-hook edebug-all-defs edebug-all-forms edebug-save-windows edebug-save-displayed-buffer-points edebug-initial-mode edebug-trace edebug-test-coverage edebug-continue-kbd-macro edebug-print-length edebug-print-level edebug-print-circle edebug-on-error edebug-on-quit edebug-on-signal edebug-unwrap-results edebug-global-break-condition (defalias 'edebug-mode #[nil "\301\302\303\304\305$\210\306!\207" [edebug-mode-map add-hook kill-buffer-hook edebug-kill-buffer nil t use-local-map] 5 (#$ . 86778)]) #@79 Used on `kill-buffer-hook' when Edebug is operating in a buffer of Lisp code. (defalias 'edebug-kill-buffer #[nil "\301\302p!\210)\303 \207" [kill-buffer-hook nil kill-buffer top-level] 2 (#$ . 87836)]) #@53 Return a list of evaluations of `edebug-eval-list'. (defalias 'edebug-eval-result-list #[nil "\303\304\305\306\n\"*\207" [edebug-trace edebug-execution-mode edebug-eval-list Go-nonstop nil mapcar edebug-safe-eval] 3 (#$ . 88046)]) (defalias 'edebug-eval-display-list #[(edebug-eval-result-list) " \306\307\310\311 \312Z\313\"\" q\210\314 \210\f\2036 \315\f@!\210\316 \210\315 @!\210\316 \210\317\n!\210\fA A\202 \320 !+\207" [edebug-eval-list edebug-eval-buffer edebug-comment-line standard-output edebug-eval-list-temp edebug-eval-result-list format ";%s\n" make-string window-width 2 45 erase-buffer prin1 terpri princ edebug-pop-to-buffer] 7]) (defalias 'edebug-create-eval-buffer #[nil "\205 \301!?\205 \302\303!\211q\210\304 \207" [edebug-eval-buffer buffer-name get-buffer-create "*edebug*" edebug-eval-mode] 2]) #@121 Display expressions and evaluations in EDEBUG-EVAL-RESULT-LIST. It modifies the context by popping up the eval display. (defalias 'edebug-eval-display #[(edebug-eval-result-list) "\205\n \301 \210\302!\207" [edebug-eval-result-list edebug-create-eval-buffer edebug-eval-display-list] 2 (#$ . 88886)]) #@101 Redisplay eval list in outside environment. May only be called from within `edebug-recursive-edit'. (defalias 'edebug-eval-redisplay #[nil "\306 \210\212\203 \307!\310\n!\210 q\210\311\f!\210 A A !\" # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6\312\216\2127q\2108b\210\313\314 !\203\201 \314 9\315\223\210\316\317 !.\207" [edebug-save-windows edebug-inside-windows edebug-outside-windows edebug-buffer edebug-outside-match-data edebug-outside-last-command-event edebug-create-eval-buffer edebug-current-windows edebug-set-windows set-match-data ((byte-code "\203 \306 !\210\n\f \n \f !\"#$%&'(\241\210)*\241\207" [edebug-save-windows edebug-inside-windows last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command edebug-set-windows this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-events edebug-outside-unread-command-events current-prefix-arg edebug-outside-current-prefix-arg last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-kbd-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w edebug-outside-pre-command-hook pre-command-hook edebug-outside-post-command-hook post-command-hook] 2)) marker-buffer edebug-mark-marker nil edebug-eval-display-list edebug-eval-result-list edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-events edebug-outside-current-prefix-arg edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-kbd-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event current-prefix-arg unread-command-events unread-command-char this-command last-command last-command-event edebug-outside-buffer edebug-outside-point edebug-outside-mark] 20 (#$ . 89196)]) #@50 Switch to the evaluation list buffer "*edebug*". (defalias 'edebug-visit-eval-list #[nil "\301 \210\302!\207" [edebug-eval-buffer edebug-eval-redisplay edebug-pop-to-buffer] 2 (#$ . 92080) nil]) #@68 Replace the evaluation list with the sexps now in the eval buffer. (defalias 'edebug-update-eval-list #[nil "`\303eb\210\304 \210m\204 \305\306!\210\307 B\310\311\303\312#\203< \306y\210\313\303w\210g\314U\204 m\204 \305\306!\210\307 B\202 \237\315 \210 b*\207" [new-list starting-point edebug-eval-list nil edebug-skip-whitespace forward-sexp 1 edebug-last-sexp re-search-forward "^;" t " \n " 59 edebug-eval-redisplay] 4 (#$ . 92282) nil]) #@44 Delete the item under point and redisplay. (defalias 'edebug-delete-eval-item #[nil "\300\301\302\303#\203 \304y\210`\305\301\302\303#\210\306 \210`|\210\307 \207" [re-search-backward "^;" nil nofail 1 re-search-forward beginning-of-line edebug-update-eval-list] 5 (#$ . 92743) nil]) #@66 Keymap for Edebug Eval mode. Superset of Lisp Interaction mode. (defvar edebug-eval-mode-map nil (#$ . 93034)) (byte-code "\204* \304 \305 \"\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\321\322\323\324#\210\325\326N\204< \321\325\326\327#\210\330\300!\204H \321\300\331\322#\210\300\nB\332\300!\204X \333\300\304 \"\210\330\334!\204d \321\334\331\322#\210\334\nB\332\334!\204t \333\334\335 \"\210\321\303\331\322#\210\303\nB\332\303!\204\216 \333\303\336\303\337\"\210 \"\210\321\322\340\341#\207" [edebug-eval-mode-map lisp-interaction-mode-map current-load-list edebug-eval-mode-abbrev-table make-sparse-keymap set-keymap-parent define-key "" edebug-where "" edebug-delete-eval-item "" edebug-update-eval-list "" edebug-eval-last-sexp "\n" edebug-eval-print-last-sexp put edebug-eval-mode mode-class special edebug-eval-mode-hook variable-documentation "Hook run when entering Edebug Eval mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp definition-name default-boundp set-default edebug-eval-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent lisp-interaction-mode] 5) #@607 Mode for evaluation list buffer while in Edebug. In addition to all Interactive Emacs Lisp commands there are local and global key bindings to several Edebug specific commands. E.g. `edebug-step-mode' is bound to \[edebug-step-mode] in the Edebug buffer and \<global-map>\[edebug-step-mode] in any buffer. Eval list buffer commands: \{edebug-eval-mode-map} Global commands prefixed by `global-edebug-prefix': \{global-edebug-map} In addition to any hooks its parent mode `lisp-interaction-mode' might have run, this mode runs the hook `edebug-eval-mode-hook', as the final step during initialization. (defalias 'edebug-eval-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210)\326\327!\207" [delay-mode-hooks major-mode mode-name edebug-eval-mode-map edebug-eval-mode-syntax-table parent make-local-variable t lisp-interaction-mode edebug-eval-mode "Edebug Eval" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table run-mode-hooks edebug-eval-mode-hook edebug-eval-mode-abbrev-table local-abbrev-table] 6 (#$ . 94299) nil]) #@125 Replacement for `debug'. If we are running an edebugged function, show where we last were. Otherwise call `debug' normally. (defalias 'edebug #[(&optional edebug-arg-mode &rest debugger-args) "\2031 \306 =\2031 \n@ @\307\211\211\211\f? \f \310 \210\f\311=?\205. .\207\312\313\f #\207" [edebug-entered edebug-recursion-depth edebug-offset-indices debugger-args edebug-arg-mode edebug-break recursion-depth nil edebug-display error apply debug edebug-global-break edebug-break-condition edebug-break-data edebug-breakpoints edebug-value edebug-offset-index] 7 (#$ . 95594)]) #@58 Display a non-working backtrace. Better than nothing... (defalias 'edebug-backtrace #[nil "\203\n \306!\204 \307\310!\306!\220 \311\312\313 \314 \210q\210\311eb\210`\315\316\313\311#\205T \317 \210\320\321!\203D `\322y\210\n`|\210\202' \320\323!\203' \322y\210\n`|\210\202' +\221\207" [edebug-backtrace-buffer standard-output last-ok-point print-length print-escape-newlines truncate-lines buffer-name generate-new-buffer "*Backtrace*" t 50 nil backtrace re-search-forward "^ (?edebug" beginning-of-line looking-at "^ (edebug-after" 1 "^ edebug"] 5 (#$ . 96188) nil]) #@196 In buffer BUF-NAME, display FMT and ARGS at the end and make it visible. The buffer is created if it does not exist. You must include newlines in FMT to break lines, but one newline is appended. (defalias 'edebug-trace-display #[(buf-name fmt &rest args) "p\301 \306\n!\307 \310 !\210\311\301 db\210\312\313#\314\261\210\315\316\317 Z!\210\320\f`\"\210db\210\321 !\210\322 !\210q\210,\n\207" [oldbuf selected-window buf-name buffer buf-window truncate-lines get-buffer-create nil edebug-pop-to-buffer t apply edebug-format "\n" vertical-motion 1 window-height set-window-start bury-buffer select-window fmt args] 4 (#$ . 96779)]) #@73 Convenience call to `edebug-trace-display' using `edebug-trace-buffer'. (defalias 'edebug-trace #[(fmt &rest args) "\303\304 \n$\207" [edebug-trace-buffer fmt args apply edebug-trace-display] 5 (#$ . 97426)]) #@728 Display the frequency count data for each line of the current definition. The frequency counts are inserted as comment lines after each line, and you can undo all insertions with one `undo' command. The counts are inserted starting under the `(' before an expression or the `)' after an expression, or on the last char of a symbol. The counts are only displayed when they differ from previous counts on the same line. If coverage is being tested, whenever all known results of an expression are `eq', the char `=' will be appended after the count for that expression. Note that this is always the case for an expression only evaluated once. To clear the frequency count and coverage data for a definition, reinstrument it. (defalias 'edebug-display-freq-count #[nil "\306 \211\307N\310N\311N\211@ \312 8\211 GS \313\211 \313\211 \313 \212\314X\205\341 \f H\\b\210\315 \210`\fZ \314S\211X\203[ HX\204F \316y\210` \317 \320c\210T\211X\203\327 H\nH\212 H\f\\b\210ig\321U\203\223 \314\202\224 \316Z) ! \"\322\314 ` ZZ]\323\"\314\"W\203\272 !\324>\204\272 \325\202\273 \326\" U\203\307 \326\202\313 \327\"!\330\261\210\" +\202k \331c\210 \202+ . \207" [function counts coverages data def-mark edebug-points edebug-form-data-symbol edebug-freq-count edebug-coverage edebug 2 nil 0 beginning-of-line 1 -1 ";#" 40 make-string 32 (unknown ok-coverage) "=" "" int-to-string " " "\n" i last-index first-index start-of-line start-of-count-line last-count col coverage count] 6 (#$ . 97643) nil]) #@111 Temporarily display the frequency count data for the current definition. It is removed when you hit any char. (defalias 'edebug-temp-display-freq-count #[nil "\302\303 \210\304 \210\305 \306 )\207" [buffer-read-only unread-command-char nil undo-boundary edebug-display-freq-count read-char undo] 1 (#$ . 99204) nil]) (defalias 'edebug-toggle #[(variable) "\301!?L\210\302\303\301!#\207" [variable eval message "%s: %s"] 5]) (require 'easymenu) #@19 Menus for Edebug. (defconst edebug-mode-menus '("Edebug" ["Stop" edebug-stop t] ["Step" edebug-step-mode t] ["Next" edebug-next-mode t] ["Trace" edebug-trace-mode t] ["Trace Fast" edebug-Trace-fast-mode t] ["Continue" edebug-continue-mode t] ["Continue Fast" edebug-Continue-fast-mode t] ["Go" edebug-go-mode t] ["Go Nonstop" edebug-Go-nonstop-mode t] "----" ["Help" edebug-help t] ["Abort" abort-recursive-edit t] ["Quit to Top Level" top-level t] ["Quit Nonstop" edebug-top-level-nonstop t] "----" ("Jumps" ["Forward Sexp" edebug-forward-sexp t] ["Step In" edebug-step-in t] ["Step Out" edebug-step-out t] ["Goto Here" edebug-goto-here t]) ("Breaks" ["Set Breakpoint" edebug-set-breakpoint t] ["Unset Breakpoint" edebug-unset-breakpoint t] ["Set Conditional Breakpoint" edebug-set-conditional-breakpoint t] ["Set Global Break Condition" edebug-set-global-break-condition t] ["Show Next Breakpoint" edebug-next-breakpoint t]) ("Views" ["Where am I?" edebug-where t] ["Bounce to Current Point" edebug-bounce-point t] ["View Outside Windows" edebug-view-outside t] ["Previous Result" edebug-previous-result t] ["Show Backtrace" edebug-backtrace t] ["Display Freq Count" edebug-display-freq-count t]) ("Eval" ["Expression" edebug-eval-expression t] ["Last Sexp" edebug-eval-last-sexp t] ["Visit Eval List" edebug-visit-eval-list t]) ("Options" ["Edebug All Defs" edebug-all-defs :style toggle :selected edebug-all-defs] ["Edebug All Forms" edebug-all-forms :style toggle :selected edebug-all-forms] "----" ["Tracing" (edebug-toggle 'edebug-trace) :style toggle :selected edebug-trace] ["Test Coverage" (edebug-toggle 'edebug-test-coverage) :style toggle :selected edebug-test-coverage] ["Save Windows" edebug-toggle-save-windows :style toggle :selected edebug-save-windows] ["Save Point" (edebug-toggle 'edebug-save-displayed-buffer-points) :style toggle :selected edebug-save-displayed-buffer-points])) (#$ . 99660)) (defalias 'edebug-window-live-p 'window-live-p) (defalias 'edebug-mark #[nil "\300\301!\207" [mark t] 2]) #@152 Set a conditional breakpoint at nearest sexp. The condition is evaluated in the outside context. With prefix argument, make it a temporary breakpoint. (defalias 'edebug-set-conditional-breakpoint #[(arg condition) "\302\303 #\207" [condition arg edebug-modify-breakpoint t] 4 (#$ . 101689) (list current-prefix-arg (let ((edebug-stop-point (edebug-find-stop-point))) (if edebug-stop-point (let* ((edebug-def-name (car edebug-stop-point)) (index (cdr edebug-stop-point)) (edebug-data (get edebug-def-name 'edebug)) (edebug-breakpoints (car (cdr edebug-data))) (edebug-break-data (assq index edebug-breakpoints)) (edebug-break-condition (car (cdr edebug-break-data))) (initial (and edebug-break-condition (format "%s" edebug-break-condition)))) (read-from-minibuffer "Condition: " initial read-expression-map t (if (equal (car read-expression-history) initial) '(read-expression-history . 1) 'read-expression-history))))))]) #@14 Edebug menus (defvar edebug-menu nil (#$ . 102619)) (byte-code "\302\303\304 $\210\305\306!\203 \307\310\311\"\210\202 \307\312\313\"\210\305\314!\203( \307\310\315\"\210\202- \307\316\317\"\210\320 \210\321\322!\207" [edebug-mode-map edebug-mode-menus easy-menu-do-define edebug-menu "Edebug menus" featurep cl add-hook edebug-setup-hook #[nil "\300\301!\207" [require cl-specs] 2] cl-load-hook #[nil "\300\301!\207" [require cl-specs] 2] cl-read #[nil "\300\301!\207" [require edebug-cl-read] 2] cl-read-load-hooks #[nil "\300\301!\207" [require edebug-cl-read] 2] edebug-install-read-eval-functions provide edebug] 5)
Close
