Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/debug.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\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)])
(make-obsolete 'debugger-insert-backtrace "use a `backtrace-mode' buffer or `backtrace-to-string'." "Emacs 27.1")
#@140 Format and insert the backtrace FRAMES at point.
Make functions into cross-reference buttons if DO-XREFS is non-nil.
(fn FRAMES DO-XREFS)
(defalias 'debugger-insert-backtrace #[514 "\211\203\n \300!\202
\301!c\207" [backtrace--to-string backtrace-to-string] 4 (#$ . 16768)])
#@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 (#$ . 17054)])
#@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 (#$ . 17964)])
#@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 (#$ . 20404) 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 (#$ . 20844) 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 (#$ . 21343) "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 (#$ . 22128) 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 (#$ . 22484)])
#@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 (#$ . 22783)])
#@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 (#$ . 23219) 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 (#$ . 23752) 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 (#$ . 24284)]))
(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 (#$ . 24641)])
#@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 (#$ . 24894) (byte-code "\300\301!C\207" [read--expression "Eval in stack frame: "] 2)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias debugger-toggle-locals backtrace-toggle-locals nil make-obsolete "28.1"] 4)
(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 (#$ . 28813) 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 (#$ . 30842) (byte-code "\300\301!C\207" [read--expression "Record Eval: "] 2)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias debug-help-follow backtrace-help-follow-symbol nil make-obsolete "28.1"] 4)
#@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 (#$ . 31505)])
#@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 (#$ . 31823) (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 (#$ . 33052)])
#@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 (#$ . 33387) (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 (#$ . 34165) 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 (#$ . 35103) 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 (#$ . 35284)])
#@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 (#$ . 35583) (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 (#$ . 36737)])
#@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 (#$ . 37060) (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)
Mini Shell