From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 24 May 2004 18:14:13 +0000 (+0000)
Subject: (gdb-breakpoints-mode, gdb-frames-mode)
X-Git-Tag: ttn-vms-21-2-B4~6075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f438d80644943fa78ee767eeb7cd391dfc1c2bc;p=emacs.git

(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 5fca67dcb80..b376c380e98 100644
--- 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)))