# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1134079850 0
# Node ID adbf404cf8062d56f398b2e57a25d49e1cecf856
# Parent  7fe69474f4c48b3b44b02e0a0b1ffcb61fa921ec
(gud-speedbar-buttons, gud-tooltip-tips):
No need to check gud-comint-buffer is bound.
(gdb): Prevent multiple debugging when first session uses gdba.

diff -r 7fe69474f4c4 -r adbf404cf806 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Thu Dec 08 22:09:24 2005 +0000
+++ b/lisp/progmodes/gud.el	Thu Dec 08 22:10:50 2005 +0000
@@ -436,8 +436,7 @@
 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 @@
 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 @@
   (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 @@
   (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))