(gdb-breakpoints-mode, gdb-frames-mode)

(gdb-locals-mode): Check gud-minor-mode in gud-comint-buffer.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 5fca67dcb8094f591c20c889cbda711c12475c8b..b376c380e9849271764d6e8e65e1dce6978e26ce 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1170,7 +1170,7 @@ static char *magick[] = {
   (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 @@ static char *magick[] = {
   (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 @@ static char *magick[] = {
   (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)))