mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(gud-speedbar-buttons, gud-tooltip-tips):

Browse Source 
No need to check gud-comint-buffer is bound.
(gdb): Prevent multiple debugging when first session uses gdba.
This commit is contained in:
Nick Roberts 2005-12-08 22:10:50 +00:00
parent c48971b2b8
commit 135f440c15
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/progmodes/gud.el
View File

@ -436,8 +436,7 @@ ZERO are not used, but are required by the caller."
If the GUD BUFFER is not running a supported debugger, then turn
off the specialized speedbar mode. BUFFER is not used, but are
required by the caller."
(when (and (boundp 'gud-comint-buffer)
gud-comint-buffer
(when (and gud-comint-buffer
;; gud-comint-buffer might be killed
(buffer-name gud-comint-buffer))
(let* ((minor-mode (with-current-buffer buffer gud-minor-mode))
@ -661,6 +660,11 @@ The directory containing FILE becomes the initial working directory
and source-file directory for your debugger."
(interactive (list (gud-query-cmdline 'gdb)))
(if (and gud-comint-buffer
(buffer-name gud-comint-buffer)
(with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
(error "Multiple debugging is only supported with \"gdb --fullname\""))
(gud-common-init command-line nil 'gud-gdb-marker-filter)
(set (make-local-variable 'gud-minor-mode) 'gdb)
@ -3330,7 +3334,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
(gud-tooltip-activate-mouse-motions-if-enabled)
(if (and
gud-comint-buffer
(buffer-name gud-comint-buffer); gud-comint-buffer might be kille
(buffer-name gud-comint-buffer); gud-comint-buffer might be killed
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
@ -3384,9 +3388,8 @@ This function must return nil if it doesn't handle EVENT."
(let (process)
(when (and (eventp event)
gud-tooltip-mode
(boundp 'gud-comint-buffer)
gud-comint-buffer
(buffer-name gud-comint-buffer); gud-comint-buffer might be killed
(buffer-name gud-comint-buffer); might be killed
(setq process (get-buffer-process gud-comint-buffer))
(posn-point (event-end event))
(or (and (eq gud-minor-mode 'gdba) (not gdb-active-process))