Mercurial > emacs

changeset 55762:e31413b06034

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-breakpoints-mode, gdb-frames-mode) (gdb-locals-mode): Check gud-minor-mode in gud-comint-buffer.
author Nick Roberts <nickrob@snap.net.nz>
date Mon, 24 May 2004 18:14:13 +0000
parents 410d58c90929
children 492d2c167c02 445e34bd8b61
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))