;ELC   
;;; compiled by jwz@thalidomide on Wed Jan  5 22:04:57 1994
;;; from file /th/jwz/emacs19/lisp/energize/energize-shell.el
;;; emacs version 19.9 Lucid (beta12).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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."))

(byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÄÅM‡" [require comint shell gdb energize-comint-input-sender #[(energize-proc input) "ÀÁ `\"‡" [energize-send-region energize-user-input-buffer-mark] 3]] 2)
(defvar energize-shell-prompt-pattern "^(.*gdb) ?" "\
*A regexp to recognize the prompt for the Energize debugger.")
(fset 'energize-debugger-mode #[nil "À ˆ	ÃÅÇÉ ˆÊ!ˆÌÎÐ!ˆÒÓ!ÇLˆÒÔ!ÕLˆÒÖ!ÇLˆÒ×!ÕLˆÒØ!ÇLˆÒÙ!ÇLˆÚÛ!‡" [comint-mode energize-shell-prompt-pattern comint-prompt-regexp shell-directory-tracker comint-input-sentinel energize-comint-input-sender comint-input-sender nil mode-line-process energize-mode-internal set-syntax-table c-mode-syntax-table energize-debugger-mode major-mode "Energize-Debugger" mode-name use-local-map energize-debugger-map make-local-variable shell-dirstack shell-dirtrackp t gdb-last-frame gdb-last-frame-displayed-p gdb-delete-prompt-marker comint-input-autoexpand run-hooks energize-debugger-mode-hook] 2 "\
Major mode for the Energize Debugger buffers.
In addition to the normal cursor-motion commands, the following keys are bound:
\\{energize-debugger-map}" nil])
(byte-code "¬ÄÁ\n!ÃÀ\"ˆÄ\"ˆÆÇÈ#ˆÆÉÊ#ˆÆËÌ#ˆÆÍÎ#ˆÆÏÐ#ˆÆÑÒ#ˆÆÓÒ#ˆÆÔÒ#ˆÆÕÖ#ˆÁ‡" [energize-debugger-map copy-keymap energize-map set-keymap-name set-keymap-parent gdb-mode-map define-key "‰" comint-dynamic-complete "¿" comint-dynamic-list-completions "<" energize-debugger-up-frame ">" energize-debugger-down-frame "" energize-debugger-return "" energize-debugger-interrupt "" "" "" energize-debugger-send-eof] 4)
(fset 'energize-debugger-step-line #[(arg) "ÀÁ!‡" [energize-execute-command "steponce"] 2 "\
Step one source line in the Energize debugger." "p"])
(fset 'energize-debugger-step-instruction #[(arg) "ÀÁ!‡" [energize-execute-command "stepinst"] 2 "\
Step one machine instruction in the Energize debugger." "p"])
(fset 'energize-debugger-next-line #[(arg) "ÀÁ!‡" [energize-execute-command "stepnext"] 2 "\
Step one source line skipping function calls in the Energize debugger." "p"])
(fset 'energize-debugger-continue-program #[(arg) "ÀÁ!‡" [energize-execute-command "continueprogram"] 2 "\
Continue running program being debugged in the Energize debugger." "p"])
(fset 'energize-debugger-up-frame #[(arg) "ÀÁ!‡" [energize-execute-command "upframe"] 2 "\
Go up one stack frame in the Energize debugger." "p"])
(fset 'energize-debugger-down-frame #[(arg) "ÀÁ!‡" [energize-execute-command "downframe"] 2 "\
Go up one stack frame in the Energize debugger." "p"])
(fset 'energize-debugger-return #[(arg) "ÀÁ!‡" [energize-execute-command "continueuntilreturn"] 2 "\
Finish executing current function in the Energize debugger." "p"])
(fset 'energize-debugger-interrupt #[(arg) "ÀÁ!‡" [energize-execute-command "stopprogram"] 2 "\
Interrupt program or debugger command in the Energize debugger." "p"])
(fset 'energize-debugger-send-eof #[nil "ŠÀcˆÁ`S`\"ˆÂÃ!)‡" [4 energize-send-region delete-char -1] 3 "\
Send an EOF to the Energize debugger." nil])