# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1085422453 0
# Node ID e31413b06034ecb24ad4f73cebd2478f6b3ca30d
# Parent  410d58c90929618a60c9b742a1af938f0d1d3d21
(gdb-breakpoints-mode, gdb-frames-mode)
(gdb-locals-mode): Check gud-minor-mode in gud-comint-buffer.

diff -r 410d58c90929 -r e31413b06034 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Mon May 24 18:13:10 2004 +0000
+++ b/lisp/progmodes/gdb-ui.el	Mon May 24 18:14:13 2004 +0000
@@ -1170,7 +1170,7 @@
   (setq mode-name "Breakpoints")
   (use-local-map gdb-breakpoints-mode-map)
   (setq buffer-read-only t)
-  (if (eq gud-minor-mode 'gdba)
+  (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
       (gdb-invalidate-breakpoints)
     (gdbmi-invalidate-breakpoints)))
 
@@ -1290,7 +1290,7 @@
   (setq buffer-read-only t)
   (use-local-map gdb-frames-mode-map)
   (font-lock-mode -1)
-  (if (eq gud-minor-mode 'gdba)
+  (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
       (gdb-invalidate-frames)
     (gdbmi-invalidate-frames)))
 
@@ -1490,7 +1490,7 @@
   (setq mode-name "Locals")
   (setq buffer-read-only t)
   (use-local-map gdb-locals-mode-map)
-  (if (eq gud-minor-mode 'gdba)
+  (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
       (gdb-invalidate-locals)
     (gdbmi-invalidate-locals)))