127 |
(and (memq gud-minor-mode '(gdbmi gdba)) |
(and (memq gud-minor-mode '(gdbmi gdba)) |
128 |
(> (car (window-fringes)) 0))))) |
(> (car (window-fringes)) 0))))) |
129 |
|
|
130 |
|
(defun gud-stop-subjob () |
131 |
|
(interactive) |
132 |
|
(if (string-equal |
133 |
|
(buffer-local-value 'gud-target-name gud-comint-buffer) "emacs") |
134 |
|
(comint-stop-subjob) |
135 |
|
(comint-interrupt-subjob))) |
136 |
|
|
137 |
(easy-mmode-defmap gud-menu-map |
(easy-mmode-defmap gud-menu-map |
138 |
'(([help] "Info" . gud-goto-info) |
'(([help] "Info" . gud-goto-info) |
139 |
([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode |
([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode |
149 |
([go] menu-item "Run/Continue" gud-go |
([go] menu-item "Run/Continue" gud-go |
150 |
:visible (and (not gud-running) |
:visible (and (not gud-running) |
151 |
(eq gud-minor-mode 'gdba))) |
(eq gud-minor-mode 'gdba))) |
152 |
([stop] menu-item "Stop" comint-stop-subjob |
([stop] menu-item "Stop" gud-stop-subjob |
153 |
:visible (or (not (eq gud-minor-mode 'gdba)) |
:visible (or (not (eq gud-minor-mode 'gdba)) |
154 |
(and gud-running |
(and gud-running |
155 |
(eq gud-minor-mode 'gdba)))) |
(eq gud-minor-mode 'gdba)))) |
175 |
(memq gud-minor-mode |
(memq gud-minor-mode |
176 |
'(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) |
'(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) |
177 |
([pp] menu-item "Print the emacs s-expression" gud-pp |
([pp] menu-item "Print the emacs s-expression" gud-pp |
178 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
179 |
gdb-active-process) |
gdb-active-process) |
180 |
:visible (and (string-equal |
:visible (and (string-equal |
181 |
(buffer-local-value |
(buffer-local-value |
182 |
'gud-target-name gud-comint-buffer) "emacs") |
'gud-target-name gud-comint-buffer) "emacs") |
183 |
(eq gud-minor-mode 'gdba))) |
(eq gud-minor-mode 'gdba))) |
184 |
([print*] menu-item "Print Dereference" gud-pstar |
([print*] menu-item "Print Dereference" gud-pstar |
185 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
186 |
(memq gud-minor-mode '(gdbmi gdba gdb)))) |
(memq gud-minor-mode '(gdbmi gdba gdb)))) |
187 |
([print] menu-item "Print Expression" gud-print |
([print] menu-item "Print Expression" gud-print |
188 |
:enable (not gud-running)) |
:enable (not gud-running)) |
189 |
([watch] menu-item "Watch Expression" gud-watch |
([watch] menu-item "Watch Expression" gud-watch |
190 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
191 |
(memq gud-minor-mode '(gdbmi gdba)))) |
(memq gud-minor-mode |
192 |
([finish] menu-item "Finish Function" gud-finish |
'(gdbmi gdba gdb xdb jdb pdb bashdb)))) |
|
:enable (and (not gud-running) |
|
|
(memq gud-minor-mode |
|
|
'(gdbmi gdba gdb xdb jdb pdb bashdb)))) |
|
193 |
([stepi] menu-item "Step Instruction" gud-stepi |
([stepi] menu-item "Step Instruction" gud-stepi |
194 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
195 |
(memq gud-minor-mode '(gdbmi gdba gdb dbx)))) |
(memq gud-minor-mode '(gdbmi gdba gdb dbx)))) |
196 |
([nexti] menu-item "Next Instruction" gud-nexti |
([nexti] menu-item "Next Instruction" gud-nexti |
197 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
198 |
(memq gud-minor-mode '(gdbmi gdba gdb dbx)))) |
(memq gud-minor-mode '(gdbmi gdba gdb dbx)))) |
199 |
([step] menu-item "Step Line" gud-step |
([step] menu-item "Step Line" gud-step |
200 |
:enable (not gud-running)) |
:enable (not gud-running)) |
201 |
([next] menu-item "Next Line" gud-next |
([next] menu-item "Next Line" gud-next |
202 |
:enable (not gud-running)) |
:enable (not gud-running)) |
203 |
([cont] menu-item "Continue" gud-cont |
([cont] menu-item "Continue" gud-cont |
204 |
:enable (not gud-running) |
:enable (not gud-running) |
205 |
:visible (not (eq gud-minor-mode 'gdba)))) |
:visible (not (eq gud-minor-mode 'gdba)))) |
206 |
"Menu for `gud-mode'." |
"Menu for `gud-mode'." |
207 |
:name "Gud") |
:name "Gud") |
208 |
|
|
230 |
(gud-watch . "gud/watch") |
(gud-watch . "gud/watch") |
231 |
(gud-run . "gud/run") |
(gud-run . "gud/run") |
232 |
(gud-go . "gud/go") |
(gud-go . "gud/go") |
233 |
(comint-stop-subjob . "gud/stop") |
(gud-stop-subjob . "gud/stop") |
234 |
;; gud-s, gud-si etc. instead of gud-step, |
;; gud-s, gud-si etc. instead of gud-step, |
235 |
;; gud-stepi, to avoid file-name clashes on DOS |
;; gud-stepi, to avoid file-name clashes on DOS |
236 |
;; 8+3 filesystems. |
;; 8+3 filesystems. |