;ELC ;;; compiled by jwz@thalidomide on Fri May 13 00:33:58 1994 ;;; from file /u/jwz/emacs19/lisp/prim/debug.el ;;; emacs version 19.10 Lucid (beta22). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar debug-function-list nil "\ List of functions currently set for debug on entry.") (byte-code "" [debug debugger] 1) (fset 'debug #[(&rest debugger-args) "!! É!!)pÉ \n    !\"#$%&É    \n 니&. " [message gettext "Entering debugger..." nil match-data fundamental-mode default-major-mode generate-new-buffer "*Backtrace*" last-command this-command unread-command-event last-input-event last-input-char last-input-time last-command-event last-command-char standard-input standard-output cursor-in-echo-area debugger-outer-cursor-in-echo-area debugger-outer-standard-output debugger-outer-standard-input debugger-outer-last-command-char debugger-outer-last-command-event debugger-outer-last-input-time debugger-outer-last-input-char debugger-outer-last-input-event debugger-outer-unread-command-event debugger-outer-this-command debugger-outer-last-command executing-macro debugger-step-after-exit debugger-old-buffer debugger-buffer debug-on-quit debug-on-error debugger-match-data debugger-value ((byte-code " ! !  \n   " [kill-buffer debugger-buffer store-match-data debugger-match-data debugger-outer-last-command last-command debugger-outer-this-command this-command debugger-outer-unread-command-event unread-command-event debugger-outer-last-input-event last-input-event debugger-outer-last-input-char last-input-char debugger-outer-last-input-time last-input-time debugger-outer-last-command-event last-command-event debugger-outer-last-command-char last-command-char debugger-outer-standard-input standard-input debugger-outer-standard-output standard-output debugger-outer-cursor-in-echo-area cursor-in-echo-area debugger-step-after-exit debug-on-next-call] 2)) allocate-event -1 t ((byte-code " ! p +eb `!y`| @>!c@=\"!cy@=!cA@p\"c!cy@=!cA@p\"c@=!c@=Ap\"c!$%! +" [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) gettext "Entering:\n" debug backtrace-debug 4 delete-char 42 0 exit "Return value: " debugger-value prin1 10 32 error "Signalling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3))] 19 "\ Enter debugger. To return, type \\`\\[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."]) (fset 'debugger-exit #[nil "" [nil (byte-code "\")" [nil debug-on-error throw debugger t] 3) ((no-catch (exit-recursive-edit)))] 3]) (fset 'debugger-step-through #[nil "!! " [t debugger-step-after-exit message gettext "Proceeding, will debug on next eval or call." debugger-exit] 3 "\ Proceed, stepping through subexpressions of this expression. Enter another debugger on next entry to eval, apply or funcall." nil]) (fset 'debugger-continue #[nil "!! " [message gettext "Continuing." debugger-exit] 3 "\ Continue, evaluating this expression without stopping." nil]) (fset 'debugger-return-value #[(val) "!\" ! " [val debugger-value princ gettext "Returning " t prin1 exit-recursive-edit] 3 "\ 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." "XReturn value (evaluated): "]) (defconst debugger-frame-offset 8 "\ ") (fset 'debugger-jump #[nil "\\ )  @ @ @K#M An)!! " [debugger-frame-offset 2 debugger-frame debug-function-list list debug-on-entry-1 nil message gettext "Continuing through this frame" debugger-exit] 6 "\ Continue to exit from this frame, with all debug-on-entry suspended." nil]) (fset 'debugger-reenable #[nil " @K: @! @ @ @K#M Ac)" [debug-function-list list debug-convert-byte-code debug-on-entry-1 t nil] 6 "\ Turn all debug-on-entry functions back on."]) (fset 'debugger-frame-number #[nil "y`eb``\\{!``\\{!!!yugU!!y`\nX Ta +" [0 count opoint 6 gettext "Signal" "Return" search-forward ":" forward-sexp 1 2 40] 3 "\ Return number of frames in backtrace before the one point points at."]) (fset 'debugger-frame #[nil "y \n \\\")gU!c)yLJ" [0 debugger-frame-number level backtrace-debug debugger-frame-offset t 32 nil buffer-read-only delete-char 1 42] 3 "\ Request entry to debugger when this frame exits. Applies to the frame whose line point is on in the backtrace." nil]) (fset 'debugger-frame-clear #[nil "y \n \\\")gU!c)yŇ" [0 debugger-frame-number level backtrace-debug debugger-frame-offset nil 42 buffer-read-only delete-char 1 32] 3 "\ Do not enter to debugger when this frame exits. Applies to the frame whose line point is on in the backtrace." nil]) (byte-code "M!  \" ! # # # # # # # # # # # # )#" [debugger-eval-expression #[(debugger-exp) " !p q\n  \n   ! \n   . " [buffer-name debugger-old-buffer debugger-outer-last-command debugger-outer-this-command debugger-outer-unread-command-event debugger-outer-last-input-event debugger-outer-last-input-char debugger-outer-last-input-time debugger-outer-last-command-event debugger-outer-last-command-char debugger-outer-standard-input debugger-outer-standard-output debugger-outer-cursor-in-echo-area cursor-in-echo-area standard-output standard-input last-command-char last-command-event last-input-time last-input-char last-input-event unread-command-event this-command last-command eval-expression debugger-exp] 11 nil "xEval: "] boundp debugger-mode-map make-keymap map set-keymap-name 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" " " next-line put debugger-mode mode-class special] 4) (fset 'debugger-mode #[nil " ! ! !" [kill-all-local-variables debugger-mode major-mode gettext "Debugger" mode-name t truncate-lines set-syntax-table emacs-lisp-mode-syntax-table use-local-map debugger-mode-map] 2 "\ Mode for backtrace buffers, selected in debugger. \\ 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}"]) (fset 'debug-on-entry #[(function) " \nK!!\n\"\nK:\n!\nK:!\n\"\n\nK#M\n\n>\n\nB\n\n" [debugger-reenable subrp function error gettext "Function %s is a primitive" debug-convert-byte-code "Definition of %s is not a list" debug-on-entry-1 t debug-function-list] 5 "\ Request FUNCTION to invoke debugger each time it is called. If you tell the debugger to continue, FUNCTION's execution proceeds. This works by modifying the definition of FUNCTION, which must be written in Lisp, not predefined. Use \\[cancel-debug-on-entry] to cancel the effect of this command. Redefining FUNCTION also cancels it." "aDebug on entry (to function): "]) (fset 'cancel-debug-on-entry #[(&optional function) " ˜ K#M \" !!\"" [debugger-reenable function "" debug-on-entry-1 nil delq debug-function-list message gettext "Cancelling debug-on-entry for all functions" mapcar cancel-debug-on-entry] 5 "\ Undo effect of \\[debug-on-entry] on FUNCTION. If argument is nil or an empty string, cancel for all functions." (byte-code "!\"\"%  !)C" [completing-read gettext "Cancel debug on entry (to function): " mapcar list symbol-name debug-function-list nil t name intern] 8)]) (byte-code "MM" [debug-convert-byte-code #[(function) "K:? \" A@ 8 8FC 8DB 8 8B @BBM*)" [function defn append nil contents byte-code 2 3 body 5 interactive 4 lambda] 6] debug-on-entry-1 #[(function defn flag) " !! \" @= A# @=! \"ˉ  AA@;  @ A@ AA@E AA @ A@D  @Ϛ=   B  A*" [subrp defn error gettext "%s is a built-in function" function macro debug-on-entry-1 flag lambda "%s not user-defined Lisp function" nil prec tail 3 (debug 'debug) (debug 'debug)] 4]] 2) (fset 'debugger-list-functions #[nil "!\n!!!!\n@! Ao)!!!!" [gettext "*Help*" debug-function-list princ "No debug-on-entry functions now\n" "Functions set to debug on entry:\n\n" list prin1 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."] 5 "\ Display a list of all the functions now set to debug on entry." nil])