Mercurial > emacs

comparison lisp/progmodes/gud.el @ 104232:23230e6cbc19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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)