Mercurial > emacs
comparison lisp/progmodes/gud.el @ 104232:23230e6cbc19
*** empty log message ***
author | Dmitry Dzhus <dima@sphinx.net.ru> |
---|---|
date | Tue, 11 Aug 2009 10:48:56 +0000 |
parents | 87373993f3bd |
children | da8b3e61b182 |
comparison
equal
deleted
inserted
replaced
104231:bfb43cf93581 | 104232:23230e6cbc19 |
---|---|
131 (defun gud-tool-bar-item-visible-no-fringe () | 131 (defun gud-tool-bar-item-visible-no-fringe () |
132 (not (or (eq (buffer-local-value 'major-mode (window-buffer)) 'speedbar-mode) | 132 (not (or (eq (buffer-local-value 'major-mode (window-buffer)) 'speedbar-mode) |
133 (and (eq gud-minor-mode 'gdbmi) | 133 (and (eq gud-minor-mode 'gdbmi) |
134 (> (car (window-fringes)) 0))))) | 134 (> (car (window-fringes)) 0))))) |
135 | 135 |
136 (declare-function gdb-gud-context-call "gdb-mi.el") | 136 (declare-function gdb-gud-context-command "gdb-mi.el") |
137 | 137 |
138 (defun gud-stop-subjob () | 138 (defun gud-stop-subjob () |
139 (interactive) | 139 (interactive) |
140 (with-current-buffer gud-comint-buffer | 140 (with-current-buffer gud-comint-buffer |
141 (cond ((string-equal gud-target-name "emacs") | 141 (cond ((string-equal gud-target-name "emacs") |
142 (comint-stop-subjob)) | 142 (comint-stop-subjob)) |
143 ((eq gud-minor-mode 'jdb) | 143 ((eq gud-minor-mode 'jdb) |
144 (gud-call "suspend")) | 144 (gud-call "suspend")) |
145 ((eq gud-minor-mode 'gdbmi) | 145 ((eq gud-minor-mode 'gdbmi) |
146 (gdb-gud-context-call "-exec-interrupt" nil nil t)) | 146 (gud-call (gdb-gud-context-command "-exec-interrupt"))) |
147 (t | 147 (t |
148 (comint-interrupt-subjob))))) | 148 (comint-interrupt-subjob))))) |
149 | 149 |
150 (easy-mmode-defmap gud-menu-map | 150 (easy-mmode-defmap gud-menu-map |
151 '(([help] "Info (debugger)" . gud-goto-info) | 151 '(([help] "Info (debugger)" . gud-goto-info) |