Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
emacs-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
advice.elc
54
KB
-rw-r--r--
autoload.elc
28.25
KB
-rw-r--r--
avl-tree.elc
27.45
KB
-rw-r--r--
backquote.elc
4.68
KB
-rw-r--r--
backtrace.elc
40.98
KB
-rw-r--r--
benchmark.elc
3.74
KB
-rw-r--r--
bindat.elc
10.73
KB
-rw-r--r--
byte-opt.elc
39.59
KB
-rw-r--r--
byte-run.elc
17.44
KB
-rw-r--r--
bytecomp.elc
154.17
KB
-rw-r--r--
cconv.elc
20.71
KB
-rw-r--r--
chart.elc
25.98
KB
-rw-r--r--
check-declare.elc
9.01
KB
-rw-r--r--
checkdoc.elc
74.78
KB
-rw-r--r--
cl-extra.elc
29.37
KB
-rw-r--r--
cl-generic.elc
59.25
KB
-rw-r--r--
cl-indent.elc
18.03
KB
-rw-r--r--
cl-lib.elc
31.72
KB
-rw-r--r--
cl-loaddefs.el
45.79
KB
-rw-r--r--
cl-macs.elc
90.7
KB
-rw-r--r--
cl-preloaded.elc
27.28
KB
-rw-r--r--
cl-print.elc
14.77
KB
-rw-r--r--
cl-seq.elc
38.35
KB
-rw-r--r--
copyright.elc
10.17
KB
-rw-r--r--
crm.elc
7.62
KB
-rw-r--r--
cursor-sensor.elc
6.74
KB
-rw-r--r--
debug.elc
36.42
KB
-rw-r--r--
derived.elc
11.88
KB
-rw-r--r--
disass.elc
6.11
KB
-rw-r--r--
easy-mmode.elc
19.78
KB
-rw-r--r--
easymenu.elc
19.88
KB
-rw-r--r--
edebug.elc
123.13
KB
-rw-r--r--
eieio-base.elc
17.17
KB
-rw-r--r--
eieio-compat.elc
8.41
KB
-rw-r--r--
eieio-core.elc
36.91
KB
-rw-r--r--
eieio-custom.elc
15.8
KB
-rw-r--r--
eieio-datadebug.elc
3.17
KB
-rw-r--r--
eieio-loaddefs.el
3.96
KB
-rw-r--r--
eieio-opt.elc
9.32
KB
-rw-r--r--
eieio-speedbar.elc
13.13
KB
-rw-r--r--
eieio.elc
33.03
KB
-rw-r--r--
eldoc.elc
19.14
KB
-rw-r--r--
elint.elc
30.6
KB
-rw-r--r--
elp.elc
12.68
KB
-rw-r--r--
ert-x.elc
11.48
KB
-rw-r--r--
ert.elc
177.96
KB
-rw-r--r--
ewoc.elc
25.26
KB
-rw-r--r--
faceup.elc
16.97
KB
-rw-r--r--
find-func.elc
21.61
KB
-rw-r--r--
float-sup.elc
1.21
KB
-rw-r--r--
generator.elc
27.42
KB
-rw-r--r--
generic.elc
7.18
KB
-rw-r--r--
gv.elc
22.69
KB
-rw-r--r--
helper.elc
3.96
KB
-rw-r--r--
inline.elc
8.37
KB
-rw-r--r--
let-alist.elc
3.04
KB
-rw-r--r--
lisp-mnt.elc
22.59
KB
-rw-r--r--
lisp-mode.elc
38.03
KB
-rw-r--r--
lisp.elc
21.44
KB
-rw-r--r--
macroexp.elc
18.01
KB
-rw-r--r--
map-ynp.elc
10.54
KB
-rw-r--r--
map.elc
18.25
KB
-rw-r--r--
nadvice.elc
17.65
KB
-rw-r--r--
package-x.elc
9.06
KB
-rw-r--r--
package.elc
146.54
KB
-rw-r--r--
pcase.elc
23.11
KB
-rw-r--r--
pp.elc
5.5
KB
-rw-r--r--
radix-tree.elc
5.88
KB
-rw-r--r--
re-builder.elc
25.78
KB
-rw-r--r--
regexp-opt.elc
6.3
KB
-rw-r--r--
regi.elc
6
KB
-rw-r--r--
ring.elc
6.32
KB
-rw-r--r--
rmc.elc
4.79
KB
-rw-r--r--
rx.elc
40.69
KB
-rw-r--r--
seq.elc
23.64
KB
-rw-r--r--
shadow.elc
9.34
KB
-rw-r--r--
smie.elc
48.84
KB
-rw-r--r--
subr-x.elc
11.17
KB
-rw-r--r--
syntax.elc
26.13
KB
-rw-r--r--
tabulated-list.elc
26.57
KB
-rw-r--r--
tcover-ses.elc
14.29
KB
-rw-r--r--
tcover-unsafep.elc
3.87
KB
-rw-r--r--
testcover.elc
23.03
KB
-rw-r--r--
text-property-search.elc
8.13
KB
-rw-r--r--
thunk.elc
3.06
KB
-rw-r--r--
timer-list.elc
4.3
KB
-rw-r--r--
timer.elc
21.65
KB
-rw-r--r--
tq.elc
3.99
KB
-rw-r--r--
trace.elc
7.27
KB
-rw-r--r--
unsafep.elc
4.45
KB
-rw-r--r--
warnings.elc
9.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : debug.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\305\324\325& \210\314\326\316\317\327DD\330\322\331\312\305\324\332& \210\314\333\316\317\334DD\335\322\336\324\337&\210\314\340\316\317\341DD\342\322\343\312\305\324\344& \207" [require cl-lib backtrace button custom-declare-group debugger nil "Debuggers and related commands for Emacs." :prefix "debugger-" :group debug custom-declare-variable debugger-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hooks run when `debugger-mode' is turned on." :type hook :version "20.3" debugger-batch-max-lines #[0 "\300\207" [40] 1] "Maximum lines to show in debugger buffer in a noninteractive Emacs.\nWhen the debugger is entered and Emacs is running in batch mode,\nif the backtrace text has more than this many lines,\nthe middle is discarded, and just the beginning and end are displayed." integer "21.1" debugger-print-function #[0 "\300\207" [cl-prin1] 1] "Function used to print values in the debugger backtraces." (choice (const cl-prin1) (const prin1) function) "26.1" debugger-bury-or-kill #[0 "\300\207" [bury] 1] "What to do with the debugger buffer when exiting `debug'.\nThe value affects the behavior of operations on any window\npreviously showing the debugger buffer.\n\nnil means that if its window is not deleted when exiting the\n debugger, invoking `switch-to-prev-buffer' will usually show\n the debugger buffer again.\n\n`append' means that if the window is not deleted, the debugger\n buffer moves to the end of the window's previous buffers so\n it's less likely that a future invocation of\n `switch-to-prev-buffer' will switch to it. Also, it moves the\n buffer to the end of the frame's buffer list.\n\n`bury' means that if the window is not deleted, its buffer is\n removed from the window's list of previous buffers. Also, it\n moves the buffer to the end of the frame's buffer list. This\n value provides the most reliable remedy to not have\n `switch-to-prev-buffer' switch to the debugger buffer again\n without killing the buffer.\n\n`kill' means to kill the debugger buffer.\n\nThe value used here is passed to `quit-restore-window'." (choice (const :tag "Keep alive" nil) (const :tag "Append" append) (const :tag "Bury" bury) (const :tag "Kill" kill)) "24.3"] 10) #@55 Non-nil means "single-step" after the debugger exits. (defvar debugger-step-after-exit nil (#$ . 2747)) #@64 This is the value for the debugger to return, when it returns. (defvar debugger-value nil (#$ . 2857)) #@68 This is the buffer that was current when the debugger was entered. (defvar debugger-old-buffer nil (#$ . 2966)) #@54 This is the window last showing the debugger buffer. (defvar debugger-previous-window nil (#$ . 3084)) #@57 The last recorded height of `debugger-previous-window'. (defvar debugger-previous-window-height nil (#$ . 3193)) #@112 The contents of the previous backtrace (including text properties). This is to optimize `debugger-make-xrefs'. (defvar debugger-previous-backtrace nil (#$ . 3313)) #@56 Non-nil if we expect to get back in the debugger soon. (defvar debugger-will-be-back nil (#$ . 3483)) #@50 Non-nil means that `debug-on-entry' is disabled. (defvar inhibit-debug-on-entry nil (#$ . 3591)) #@180 Non-nil means that `debug-on-entry' is disabled. This variable is used by `debugger-jump', `debugger-step-through', and `debugger-reenable' to temporarily disable debug-on-entry. (defvar debugger-jumping-flag nil (#$ . 3695)) #@352 Arguments with which the debugger was called. It is a list expected to take the form (CAUSE . REST) where CAUSE can be: - debug: called for entry to a flagged function. - t: called because of debug-on-next-call. - lambda: same thing but via `funcall'. - exit: called because of exit of a flagged function. - error: called because of `debug-on-error'. (defvar debugger-args nil (#$ . 3928)) #@81 compiler-macro for inlining `debugger--buffer-state-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-p (and (memq (type-of cl-x) cl-struct-debugger--buffer-state-tags) t)) nil] 9 (#$ . 4324)]) (put 'debugger--buffer-state-p 'compiler-macro 'debugger--buffer-state-p--cmacro) #@13 (fn CL-X) (defalias 'debugger--buffer-state-p #[257 "\301!>\205 \302\207" [cl-struct-debugger--buffer-state-tags type-of t] 3 (#$ . 4730)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put debugger--buffer-state-p side-effect-free error-free put debugger--buffer-state cl-deftype-satisfies] 5) #@84 compiler-macro for inlining `debugger--buffer-state-mode'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-mode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-mode (progn (or (debugger--buffer-state-p cl-x) (signal 'wrong-type-argument (list 'debugger--buffer-state cl-x))) (aref cl-x 1))) nil] 9 (#$ . 5052)]) (put 'debugger--buffer-state-mode 'compiler-macro 'debugger--buffer-state-mode--cmacro) #@72 Access slot "mode" of `debugger--buffer-state' struct CL-X. (fn CL-X) (defalias 'debugger--buffer-state-mode #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-debugger--buffer-state-tags type-of signal wrong-type-argument debugger--buffer-state 1] 5 (#$ . 5530)]) (byte-code "\300\301\302\303#\300\207" [function-put debugger--buffer-state-mode side-effect-free t] 4) #@86 compiler-macro for inlining `debugger--buffer-state-header'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-header--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-header (progn (or (debugger--buffer-state-p cl-x) (signal 'wrong-type-argument (list 'debugger--buffer-state cl-x))) (aref cl-x 2))) nil] 9 (#$ . 5922)]) (put 'debugger--buffer-state-header 'compiler-macro 'debugger--buffer-state-header--cmacro) #@74 Access slot "header" of `debugger--buffer-state' struct CL-X. (fn CL-X) (defalias 'debugger--buffer-state-header #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-debugger--buffer-state-tags type-of signal wrong-type-argument debugger--buffer-state 2] 5 (#$ . 6410)]) (byte-code "\300\301\302\303#\300\207" [function-put debugger--buffer-state-header side-effect-free t] 4) #@86 compiler-macro for inlining `debugger--buffer-state-frames'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-frames--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-frames (progn (or (debugger--buffer-state-p cl-x) (signal 'wrong-type-argument (list 'debugger--buffer-state cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6808)]) (put 'debugger--buffer-state-frames 'compiler-macro 'debugger--buffer-state-frames--cmacro) #@74 Access slot "frames" of `debugger--buffer-state' struct CL-X. (fn CL-X) (defalias 'debugger--buffer-state-frames #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-debugger--buffer-state-tags type-of signal wrong-type-argument debugger--buffer-state 3] 5 (#$ . 7296)]) (byte-code "\300\301\302\303#\300\207" [function-put debugger--buffer-state-frames side-effect-free t] 4) #@87 compiler-macro for inlining `debugger--buffer-state-content'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-content--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-content (progn (or (debugger--buffer-state-p cl-x) (signal 'wrong-type-argument (list 'debugger--buffer-state cl-x))) (aref cl-x 4))) nil] 9 (#$ . 7694)]) (put 'debugger--buffer-state-content 'compiler-macro 'debugger--buffer-state-content--cmacro) #@75 Access slot "content" of `debugger--buffer-state' struct CL-X. (fn CL-X) (defalias 'debugger--buffer-state-content #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-debugger--buffer-state-tags type-of signal wrong-type-argument debugger--buffer-state 4] 5 (#$ . 8187)]) (byte-code "\300\301\302\303#\300\207" [function-put debugger--buffer-state-content side-effect-free t] 4) #@83 compiler-macro for inlining `debugger--buffer-state-pos'. (fn CL-WHOLE-ARG CL-X) (defalias 'debugger--buffer-state-pos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block debugger--buffer-state-pos (progn (or (debugger--buffer-state-p cl-x) (signal 'wrong-type-argument (list 'debugger--buffer-state cl-x))) (aref cl-x 5))) nil] 9 (#$ . 8588)]) (put 'debugger--buffer-state-pos 'compiler-macro 'debugger--buffer-state-pos--cmacro) #@71 Access slot "pos" of `debugger--buffer-state' struct CL-X. (fn CL-X) (defalias 'debugger--buffer-state-pos #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-debugger--buffer-state-tags type-of signal wrong-type-argument debugger--buffer-state 5] 5 (#$ . 9061)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put debugger--buffer-state-pos side-effect-free t defalias copy-debugger--buffer-state copy-sequence] 4) #@121 compiler-macro for inlining `make-debugger--buffer-state'. (fn CL-WHOLE &cl-quote &key MODE HEADER FRAMES CONTENT POS) (defalias 'make-debugger--buffer-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :mode :header :frames :content :pos (:mode :header :frames :content :pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mode :header :frames :content :pos)" cl--defsubst-expand (mode header frames content pos) (cl-block make-debugger--buffer-state (record 'debugger--buffer-state mode header frames content pos))] 18 (#$ . 9512)]) (put 'make-debugger--buffer-state 'compiler-macro 'make-debugger--buffer-state--cmacro) #@101 Constructor for objects of type `debugger--buffer-state'. (fn &key MODE HEADER FRAMES CONTENT POS) (defalias 'make-debugger--buffer-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314&\207" [plist-member :mode :header :frames :content :pos (:mode :header :frames :content :pos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mode :header :frames :content :pos)" record debugger--buffer-state] 13 (#$ . 10372)]) (byte-code "\300\301\302\303#\300\207" [function-put make-debugger--buffer-state side-effect-free t] 4) #@79 compiler-macro for inlining `debugger--save-buffer-state'. (fn CL-WHOLE-ARG) (defalias 'debugger--save-buffer-state--cmacro #[257 "\300\301\302\303\304\305\306\307\310\211\211\n\n\n\n\n&\n\207" [major-mode backtrace-insert-header-function backtrace-frames (buffer-string) (point) cl--defsubst-expand (mode header frames content pos) (cl-block debugger--save-buffer-state (record 'debugger--buffer-state mode header frames content pos)) nil] 17 (#$ . 11073)]) (put 'debugger--save-buffer-state 'compiler-macro 'debugger--save-buffer-state--cmacro) #@59 Constructor for objects of type `debugger--buffer-state'. (defalias 'debugger--save-buffer-state #[0 " \n\303 `\304\305&\207" [major-mode backtrace-insert-header-function backtrace-frames buffer-string record debugger--buffer-state] 12 (#$ . 11632)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put debugger--save-buffer-state side-effect-free t cl-struct-define debugger--buffer-state nil cl-structure-object record ((cl-tag-slot) (mode) (header) (frames) (content) (pos)) cl-struct-debugger--buffer-state-tags] 11) #@14 (fn STATE) (defalias 'debugger--restore-buffer-state #[257 "\304\305!>\204 \306\307\310D\"\210\311H!\204+ \305!>\204& \306\307\310D\"\210\211\311H \210\305!>\204: \306\307\310D\"\210\211\312H\305!>\204M \306\307\310D\"\210\211\313H\314\315 \210\305!>\204e \306\307\310D\"\210\211\316Hc\210)\305!>\204z \306\307\310D\"\210\211\317Hb\207" [cl-struct-debugger--buffer-state-tags backtrace-insert-header-function backtrace-frames inhibit-read-only derived-mode-p type-of signal wrong-type-argument debugger--buffer-state 1 2 3 t erase-buffer 4 5] 6 (#$ . 12210)]) (byte-code "\301\211\207" [debugger debug] 2) #@475 Enter debugger. \<debugger-mode-map>`\[debugger-continue]' returns from the debugger. Arguments are mainly for use when this is called from the internals of the evaluator. You may call with no args, or you may pass nil as the first arg and any other args you like. In that case, the list of args after the first will be printed into the backtrace buffer. If `inhibit-redisplay' is non-nil when this function is called, the debugger will not be entered. (fn &rest ARGS) (defalias 'debug #[128 "\203 \207\n\206 \306\307 !\310=\205 \311 \312\232\313\211\204! \314\315!\210\313\316\317!\205: r\316\317!q\210\320\321\f ;\322 `&)\323\317!p\313C\313\211\211\324 \325 < = > ? @ A\n\313\211B\313\211\310\313\211\211\211\211\211\211\211C\206w \326 \327V\310\211\313\211\330 D E F C G H I J\n K L\f M N O P Q R\331\327\332\333\334 %\335\"\336$\216\212A@\337=\203\356 \340\336\310\"\210\341\336!A@\242\342=\203\356 \340\343\310\"\210rq\210\344\345!\204\374 \345 \210\346A!\210 \203:\310 S\347ed\"TV\203/eb\210T\350\245y\210`db\210T\350\245[y\210\211`|\266\351c\210)\314\352\322 \"\210\353\354!\210)\355\356\357\360\361U!\205V\362\363U!!\205V\364UBCBBB\"\210\365 \240\210U\242=\203\214V\203\221\3661\204\367\242W\370\242!Z\"0\202\210\210\202\221\210\202\221\242U\314\371!\210\313\310 X E\314\371!\210\212\372 \210.\266?Y .\266\213)\207" [inhibit-redisplay debugger-value noninteractive inhibit-message major-mode backtrace-insert-header-function framep selected-frame t terminal-name "initial_terminal" nil message "Entering debugger..." get-buffer "*Backtrace*" record debugger--buffer-state buffer-string get-buffer-create match-data with-timeout-suspend minibuffer-depth 0 current-window-configuration make-byte-code "\306\302\242!\203 \307\302\242!\301=\203 \310\302\242!\203! \311\304!\210\202? \306\302\242!\203< \307\302\242!\301=\203< \312\302\242\"\210q\210\313\314\301!\203^ r\301q\210\300\203T \315\300!\210\202] \313\211\316 \210)\317\303!\210\320!\207" vconcat vector [debugger-previous-window-height window-live-p window-buffer window-total-height set-window-configuration quit-restore-window nil buffer-live-p debugger--restore-buffer-state backtrace-print with-timeout-unsuspend set-match-data debugger-will-be-back debugger-bury-or-kill debugger-old-buffer debugger-previous-window backtrace-insert-header-function backtrace-frames debugger-outer-match-data] 4 debug backtrace-debug backtrace-frame lambda 5 derived-mode-p debugger-mode debugger-setup-buffer count-lines 2 "...\n" "%s" kill-emacs -1 pop-to-buffer (display-buffer-reuse-window display-buffer-in-previous-window display-buffer-below-selected) (window-min-height . 10) (window-height . fit-window-to-buffer) window-live-p frame-visible-p window-frame previous-window selected-window (error) window-resize window-total-height "" recursive-edit backtrace-frames debugger-outer-match-data executing-kbd-macro debugger-will-be-back debugger-step-after-exit debugger-old-buffer debugger-args overriding-terminal-local-map enable-recursive-minibuffers cursor-in-echo-area standard-output standard-input load-read-function overriding-local-map last-event-frame last-nonmenu-event last-command-event last-input-event unread-post-input-method-events unread-command-events inhibit-trace track-mouse this-command last-command inhibit-read-only debugger-batch-max-lines debugger-previous-window debugger-jumping-flag debugger-previous-window-height buffer-read-only debug-on-next-call] 42 (#$ . 12849) nil]) #@29 (fn OBJ &optional STREAM) (defalias 'debugger--print #[513 "\3011\n \"0\207\302\303\"\210\304\"\207" [debugger-print-function (error) message "Error in debug printer: %S" prin1] 6 (#$ . 16444)]) #@135 Initialize the `*Backtrace*' buffer for entry to the debugger. That buffer should be current already and in debugger-mode. (fn ARGS) (defalias 'debugger-setup-buffer #[257 "\211@\306=\203 \307\202\f \310\311\306!\233\211\242\312=\203; \211A@\313@!\n>\204- \314\315\316@D\"\210@\211\317\320\317H\321\322#I\266\323 \324\325#\326\327\330\331\332!\333\"\334$ \"\335 \210eb\210\336\337\340 \325#\210`\340 W\205m \322f\341U\205m \322u\207" [backtrace-frames debugger-value cl-struct-backtrace-frame-tags backtrace-view backtrace-insert-header-function debugger-print-function debug 3 1 backtrace-get-frames exit type-of signal wrong-type-argument backtrace-frame 4 cl--set-getf :debug-on-exit nil plist-put :show-flags t make-byte-code 0 "\301\300!\207" vconcat vector [debugger--insert-header] 2 backtrace-print search-forward ":" line-end-position 32 backtrace-print-function] 8 (#$ . 16654)]) #@116 Insert the header for the debugger's Backtrace buffer. Include the reason for debugger entry from ARGS. (fn ARGS) (defalias 'debugger--insert-header #[257 "\301c\210\211@\302\303\267\202.\304c\2021\305c\210\306!c\210\307c\2021A\211:\203\211@A\211:\203\364\211@A\211\310\311\312\313\232\203E \314\315\"\202\345:\203\324@\211\316\267\202\203A\211:\203\214 \211@A\211\204n \314\317\n#\262\202\207 \320\232\203\201 \314\321 \306\f!#\202\207 \322\323A\"\266\202\202\240 \320\232\203\234 \"\202\240 !\262\202\317A\211:\203\326 \211A\211\204\275 \314\324\n#\202\321 \320\232\203\315 \"\202\321 !\262\202\352 \320\232\203\346 \"\202\352 !\262\202\317A\211:\203\"\211A\211\204 \314\325\306 !#\202 \320\232\203\"\202 !\262\2026\320\232\2032\"\2026!\262\202\317A\211:\203j\211A\211\204Q\314\326\"\202e\320\232\203a\"\202e!\262\202~\320\232\203z\"\202~!\262\202\317\320\232\203\223\"\202\317\211\327=\203\313A\211:\203\302\211@A\211\204\271\314\330\n\306!$\262\202\275!\266\202\202\306!\262\202\317!\262\202\345\320\232\203\341\211\"\202\345!\266\202\331\261\210\307c\266\203\266\202\202 \331c\210\306@\332=\203A\202!c\210\307c\266\202\202!\262\2021\333c\210\306A@!c\210\307c\2021\334c\2021\211!\207" [debugger-value "Debugger entered" #[257 "\300c\210\301@\302=\203 A\202 !c\210\303c\207" [": " backtrace-print-to-string nil 10] 4 "\n\n(fn ARGS)"] #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (debug 12 lambda 12 exit 17 watchpoint 30 error 538 t 553)) "--entering a function:\n" "--returning value: " backtrace-print-to-string 10 "--" #[257 "\300\301A\"\207" [error #2="unrecognized watchpoint triggered %S"] 4 "\n\n(fn ARGS)"] #[514 "\300\301\302!#\207" [format #1="setting %s to %s" backtrace-print-to-string] 7 "\n\n(fn NEWVAL SYMBOL)"] (makunbound nil) format "making %s void" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (makunbound 82 defvaralias 165 let 239 unlet 315)) "killing local value of %s in buffer %s" (set nil) #1# error #2# "aliasing %s to %s" "let-binding %s to %s" "ending let-binding of %s" set "setting %s in buffer %s to %s" ": " nil "--Lisp error: " "--beginning evaluation of function call form:\n"] 25 (#$ . 17564)]) #@126 Proceed, stepping through subexpressions of this expression. Enter another debugger on next entry to eval, apply or funcall. (defalias 'debugger-step-through #[0 "\303\211\303\304\305\306\"\210\307\310!\210\311 \207" [debugger-step-after-exit debugger-jumping-flag debugger-will-be-back t add-hook post-command-hook debugger-reenable message "Proceeding, will debug on next eval or call." exit-recursive-edit] 4 (#$ . 20004) nil]) #@56 Continue, evaluating this expression without stopping. (defalias 'debugger-continue #[0 "\204 \304\305!\210\306\307!\210 \211\2034 \211@\310\311!\n>\204# \312\313\314D\"\210\315H\316\"\203- \317A\266\202\202 \210\320 \207" [debugger-may-continue backtrace-frames cl-struct-backtrace-frame-tags debugger-will-be-back error "Cannot continue" message "Continuing." plist-get type-of signal wrong-type-argument backtrace-frame 4 :debug-on-exit t exit-recursive-edit] 7 (#$ . 20444) nil]) #@166 Continue, specifying value to return. This is only useful when the value returned from the debugger will be used, such as in a debug on exit from a frame. (fn VAL) (defalias 'debugger-return-value #[257 "@\305>\203 \306\307@\306=\203 \310\202 \311\"\210\211\312\313\314\"\210\315 !\210\n\211\203J \211@\316\317! >\2049 \320\321\322D\"\210\323H\324\"\203C \314A\266\202\202# \210\325 \207" [debugger-args debugger-value backtrace-frames cl-struct-backtrace-frame-tags debugger-will-be-back (t lambda error debug) error "Cannot return a value %s" "from an error" "at function entrance" princ "Returning " t debugger--print plist-get type-of signal wrong-type-argument backtrace-frame 4 :debug-on-exit exit-recursive-edit] 8 (#$ . 20943) "XReturn value (evaluated): "]) #@70 Continue to exit from this frame, with all debug-on-entry suspended. (defalias 'debugger-jump #[0 "\302 \210\303\304\305\306\"\210\307\310!\210\303\311 \207" [debugger-jumping-flag debugger-will-be-back debugger-frame t add-hook post-command-hook debugger-reenable message "Continuing through this frame" exit-recursive-edit] 3 (#$ . 21728) nil]) #@142 Turn all debug-on-entry functions back on. This function is put on `post-command-hook' by `debugger-jump' and removes itself from that hook. (defalias 'debugger-reenable #[0 "\301\302\303\304\"\207" [debugger-jumping-flag nil remove-hook post-command-hook debugger-reenable] 3 (#$ . 22084)]) #@96 Return number of frames in backtrace before the one point points at. (fn &optional SKIP-BASE) (defalias 'debugger-frame-number #[256 "\300\301\206 `\302\"\262\303\204 \304\305!\210\2049 \306!A@\307=\204) \211T\262\202 \306T!A@\310=\2039 \311\\\262\211\\\207" [nil get-text-property backtrace-index 0 error "This line is not a function call" backtrace-frame debug debug--implement-debug-on-entry 2] 5 (#$ . 22383)]) #@112 Request entry to debugger when this frame exits. Applies to the frame whose line point is on in the backtrace. (defalias 'debugger-frame #[0 "\302\303 \304\"\210\305\306\206 `\307\"\2628\310! >\204\" \311\312\313D\"\210\211\211\314\315\314H\316\304#I\266\317 \207" [backtrace-frames cl-struct-backtrace-frame-tags backtrace-debug debugger-frame-number t nil get-text-property backtrace-index type-of signal wrong-type-argument backtrace-frame 4 cl--set-getf :debug-on-exit backtrace-update-flags] 8 (#$ . 22819) nil]) #@108 Do not enter debugger when this frame exits. Applies to the frame whose line point is on in the backtrace. (defalias 'debugger-frame-clear #[0 "\302\303 \304\"\210\304\305\206 `\306\"\2628\307! >\204\" \310\311\312D\"\210\211\211\313\314\313H\315\304#I\266\316 \207" [backtrace-frames cl-struct-backtrace-frame-tags backtrace-debug debugger-frame-number nil get-text-property backtrace-index type-of signal wrong-type-argument backtrace-frame 4 cl--set-getf :debug-on-exit backtrace-update-flags] 8 (#$ . 23352) nil]) #@52 Run BODY in original environment. (fn &rest BODY) (defalias 'debugger-env-macro '(macro . #[128 "\300\301\302\300B\303BBE\207" [progn (set-match-data debugger-outer-match-data) prog1 ((setq debugger-outer-match-data (match-data)))] 6 (#$ . 23884)])) (byte-code "\300\301\302\303#\300\207" [function-put debugger-env-macro lisp-indent-function 0] 4) #@86 Return the function name that marks the top of the backtrace. See `backtrace-frame'. (defalias 'debugger--backtrace-base #[0 "\300\301\302\"A@\303=\203 \303\207\302\207" [backtrace-frame 1 debug debug--implement-debug-on-entry] 3 (#$ . 24241)]) #@175 Eval an expression, in an environment like that outside the debugger. The environment used is the one when entering the activation frame at point. (fn EXP &optional NFRAME) (defalias 'debugger-eval-expression #[513 "\211\206 \3011 \302\303!T0\202 \210\304\305 \306!\210\307#\310\311\"\312!\211\203- \313\311\"\210\210\262\314 \207" [debugger-outer-match-data (error) debugger-frame-number skip-base 0 debugger--backtrace-base set-match-data backtrace-eval debugger--print t eval-expression-print-format princ match-data] 10 (#$ . 24494) (byte-code "\300\301!C\207" [read--expression "Eval in stack frame: "] 2)]) (defvar debugger-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\332\333\334\335$\210\211\207" [backtrace-mode-map make-keymap set-keymap-parent define-key "b" debugger-frame "c" debugger-continue "j" debugger-jump "r" debugger-return-value "u" debugger-frame-clear "d" debugger-step-through "l" debugger-list-functions "q" debugger-quit "e" debugger-eval-expression "R" debugger-record-expression [mouse-2] push-button easy-menu-do-define nil "" ("Debugger" ["Step through" debugger-step-through :help "Proceed, stepping through subexpressions of this expression"] ["Continue" debugger-continue :help "Continue, evaluating this expression without stopping"] ["Jump" debugger-jump :help "Continue to exit from this frame, with all debug-on-entry suspended"] ["Eval Expression..." debugger-eval-expression :help "Eval an expression, in an environment like that outside the debugger"] ["Display and Record Expression" debugger-record-expression :help "Display a variable's value and record it in `*Backtrace-record*' buffer"] ["Return value..." debugger-return-value :help "Continue, specifying value to return."] "--" ["Debug frame" debugger-frame :help "Request entry to debugger when this frame exits"] ["Cancel debug frame" debugger-frame-clear :help "Do not enter debugger when this frame exits"] ["List debug on entry functions" debugger-list-functions :help "Display a list of all the functions now set to debug on entry"] "--" ["Next Line" next-line :help "Move cursor down"] ["Help for Symbol" backtrace-help-follow-symbol :help "Show help for symbol at point"] ["Describe Debugger Mode" describe-mode :help "Display documentation for debugger-mode"] "--" ["Quit" debugger-quit :help "Quit debugging and return to top level"])] 6)) (put 'debugger-mode 'mode-class 'special) (defvar debugger-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [debugger-mode-hook variable-documentation put "Hook run after entering Debugger mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp debugger-mode-map definition-name debugger-mode] 4) (defvar debugger-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [debugger-mode-abbrev-table debugger-mode-map variable-documentation put purecopy "Keymap for `debugger-mode'." boundp debugger-mode-syntax-table definition-name debugger-mode (lambda (#1=#:def-tmp-var) (defvar debugger-mode-syntax-table #1#)) make-syntax-table "Syntax table for `debugger-mode'." (lambda (#1#) (defvar debugger-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `debugger-mode'." derived-mode-parent backtrace-mode] 5) #@853 Mode for debugging Emacs Lisp using a backtrace. \<debugger-mode-map> A frame marked with `*' in the backtrace means that exiting that frame will enter the debugger. You can flag frames to enter the debugger when frame is exited with \[debugger-frame], and remove the flag with \[debugger-frame-clear]. When in debugger invoked due to exiting a frame which was flagged with a `*', you can use the \[debugger-return-value] command to override the value being returned from that frame when the debugger exits. Use \[debug-on-entry] and \[cancel-debug-on-entry] to control which functions will enter the debugger when called. Complete list of commands: \{debugger-mode-map} In addition to any hooks its parent mode `backtrace-mode' might have run, this mode runs the hook `debugger-mode-hook', as the final or penultimate step during initialization. (defalias 'debugger-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331\332\333\334\307$\210\327 !\210)\335\336!\207" [delay-mode-hooks major-mode mode-name debugger-mode-map debugger-mode-syntax-table debugger-mode-abbrev-table make-local-variable t backtrace-mode debugger-mode "Debugger" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table add-hook kill-buffer-hook #[0 "\300 \301V\205 \302 \207" [recursion-depth 0 top-level] 2] nil run-mode-hooks debugger-mode-hook local-abbrev-table] 5 (#$ . 28271) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable debugger-record-buffer funcall function #[0 "\300\207" [#1="*Debugger-record*"] 1 #1#] "Buffer name for expression values, for \\[debugger-record-expression]." :type string :group debugger :version "20.3"] 10) #@84 Display a variable's value and record it in `*Backtrace-record*' buffer. (fn EXP) (defalias 'debugger-record-expression #[257 "\302!\211\303\304\305\"!\210\303\306!!\210\307 \210)\210r\310!q\210\311\312\313\314!\315\314!{\")\207" [debugger-record-buffer standard-output get-buffer-create princ format "Debugger Eval (%s): " debugger-eval-expression terpri get-buffer message "%s" line-beginning-position 0 line-end-position] 6 (#$ . 30300) (byte-code "\300\301!C\207" [read--expression "Record Eval: "] 2)]) #@147 Conditionally call the debugger. A call to this function is inserted by `debug-on-entry' to cause functions to break on entry. (fn &rest IGNORE) (defalias 'debug--implement-debug-on-entry #[128 "\206 ?\205 \303\n\304!)\207" [inhibit-debug-on-entry debugger-jumping-flag debugger t debug] 3 (#$ . 30821)]) #@667 Request FUNCTION to invoke debugger each time it is called. When called interactively, prompt for FUNCTION in the minibuffer. This works by modifying the definition of FUNCTION. If you tell the debugger to continue, FUNCTION's execution proceeds. If FUNCTION is a normal function or a macro written in Lisp, you can also step through its execution. FUNCTION can also be a primitive that is not a special form, in which case stepping is not possible. Break-on-entry for primitive functions only works when that function is called from Lisp. Use \[cancel-debug-on-entry] to cancel the effect of this command. Redefining FUNCTION also cancels it. (fn FUNCTION) (defalias 'debug-on-entry #[257 "\300\301\302\303$\210\207" [advice-add :before debug--implement-debug-on-entry ((depth . -100))] 6 (#$ . 31139) (byte-code "\301 \302\303!\203\f \302\262\304\203 \305\306\"\202 \307\310\311\302\211\312 !&\262\211\313\232\2030 \2023 \314!C\207" [obarray function-called-at-point nil special-form-p completing-read format "Debug on entry to function (default %s): " "Debug on entry to function: " #[257 "\300!\205\n \301!?\207" [fboundp special-form-p] 3 "\n\n(fn SYMBOL)"] confirm symbol-name "" intern] 11)]) #@53 List of functions currently set for debug on entry. (defalias 'debug--function-list #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\207" [nil mapatoms make-byte-code 257 "\301\302\"\205 \300\300\242B\240\207" vconcat vector [advice-member-p debug--implement-debug-on-entry] 4 "\n\n(fn S)"] 8 (#$ . 32368)]) #@271 Undo effect of \[debug-on-entry] on FUNCTION. If FUNCTION is nil, cancel debug-on-entry for all functions. When called interactively, prompt for FUNCTION in the minibuffer. To specify a nil argument interactively, exit with an empty minibuffer. (fn &optional FUNCTION) (defalias 'cancel-debug-on-entry #[256 "\211\203\n \300\301\"\210\207\302\303!\210\304\305\306 \"\207" [advice-remove debug--implement-debug-on-entry message "Canceling debug-on-entry for all functions" mapcar cancel-debug-on-entry debug--function-list] 4 (#$ . 32703) (byte-code "\300\301\302\303\304 \"\305\306$\211\205 \211\307\230?\205 \310!\262C\207" [completing-read "Cancel debug on entry to function (default all functions): " mapcar symbol-name debug--function-list nil t "" intern] 5)]) #@64 Display a list of all the functions now set to debug on entry. (defalias 'debugger-list-functions #[0 "\306\307!\210\310\311\312\313!\"\210r\314\315 !q\210p\316 \210\317\211\320\211\320 \321 \210\322\323!\210+\211 r q\210\324 \211\204? \325\326!\202f \325\327!\210\211\211\205d \211@\330`\331!\210`\332\333\334C&\210\335 \210A\266\202\202D \262\262)\336!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only require help-mode help-setup-xref (debugger-list-functions) called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook debug--function-list princ "No debug-on-entry functions now\n" "Functions set to debug on entry:\n\n" make-text-button prin1 type help-function help-args terpri internal-temp-output-buffer-show standard-output] 13 (#$ . 33481) nil]) #@45 Quit debugging and return to the top level. (defalias 'debugger-quit #[0 "\300 \301U\203\n \302 \207\303 \207" [recursion-depth 0 quit-window top-level] 2 (#$ . 34419) nil]) #@120 Conditionally call the debugger. This function is called when SYMBOL's value is modified. (fn SYMBOL NEWVAL OP WHERE) (defalias 'debug--implement-debug-watch #[1028 "\206 ?\205 \303\n\304%)\207" [inhibit-debug-on-entry debugger-jumping-flag debugger t watchpoint] 10 (#$ . 34600)]) #@686 Trigger a debugger invocation when VARIABLE is changed. When called interactively, prompt for VARIABLE in the minibuffer. This works by calling `add-variable-watcher' on VARIABLE. If you quit from the debugger, this will abort the change (unless the change is caused by the termination of a let-binding). The watchpoint may be circumvented by C code that changes the variable directly (i.e., not via `set'). Changing the value of the variable (e.g., `setcar' on a list variable) will not trigger watchpoint. Use \[cancel-debug-on-variable-change] to cancel the effect of this command. Uninterning VARIABLE or making it an alias of another symbol also cancels it. (fn VARIABLE) (defalias 'debug-on-variable-change #[257 "\300\301\"\207" [add-variable-watcher debug--implement-debug-watch] 4 (#$ . 34899) (byte-code "\301 \2119\205 \211\302\303\203 \304\305\"\202 \306P\307\310\311\211\205% \312!&\211\313\232\2031 \2024 \314!C\207" [obarray variable-at-point completing-read "Debug when setting variable" format " (default %s): " ": " boundp t nil symbol-name "" intern] 11)]) (defalias 'debug-watch 'debug-on-variable-change) #@51 List of variables currently set for debug on set. (defalias 'debug--variable-list #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\207" [nil mapatoms make-byte-code 257 "\301\302N>\205 \300\300\242B\240\207" vconcat vector [debug--implement-debug-watch watchers] 4 "\n\n(fn S)"] 8 (#$ . 36053)]) #@291 Undo effect of \[debug-on-variable-change] on VARIABLE. If VARIABLE is nil, cancel debug-on-variable-change for all variables. When called interactively, prompt for VARIABLE in the minibuffer. To specify a nil argument interactively, exit with an empty minibuffer. (fn &optional VARIABLE) (defalias 'cancel-debug-on-variable-change #[256 "\211\203 \300\301\"\207\302\303!\210\304\305\306 \"\207" [remove-variable-watcher debug--implement-debug-watch message "Canceling debug-watch for all variables" mapc cancel-debug-watch debug--variable-list] 4 (#$ . 36376) (byte-code "\300\301\302\303\304 \"\305\306$\211\205 \211\307\230?\205 \310!\262C\207" [completing-read "Cancel debug on set for variable (default all variables): " mapcar symbol-name debug--variable-list nil t "" intern] 5)]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias cancel-debug-watch cancel-debug-on-variable-change provide debug] 3)
Close
