From 02974d02ac76b4403341fa2fa3c8b6054b76fbfe Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sat, 7 Oct 2006 23:37:20 +0000 Subject: [PATCH] (gdb-speedbar-expand-node): Burp if GUD buffer has been killed. --- lisp/progmodes/gdb-ui.el | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 3f21e4ac96b..52360a73970 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -902,20 +902,23 @@ Changed values are highlighted with the face `font-lock-warning-face'." TEXT is the text of the button we clicked on, a + or - item. TOKEN is data related to this node. INDENT is the current indentation depth." - (cond ((string-match "+" text) ;expand this node - (if (and - (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba) - (string-equal gdb-version "pre-6.4")) - (gdb-var-list-children token) - (gdb-var-list-children-1 token))) - ((string-match "-" text) ;contract this node - (dolist (var gdb-var-list) - (if (string-match (concat token "\\.") (car var)) - (setq gdb-var-list (delq var gdb-var-list)))) - (speedbar-change-expand-button-char ?+) - (speedbar-delete-subblock indent)) - (t (error "Ooops... not sure what to do"))) - (speedbar-center-buffer-smartly)) + (if (and gud-comint-buffer (buffer-name gud-comint-buffer)) + (progn + (cond ((string-match "+" text) ;expand this node + (if (and (eq (buffer-local-value + 'gud-minor-mode gud-comint-buffer) 'gdba) + (string-equal gdb-version "pre-6.4")) + (gdb-var-list-children token) + (gdb-var-list-children-1 token))) + ((string-match "-" text) ;contract this node + (dolist (var gdb-var-list) + (if (string-match (concat token "\\.") (car var)) + (setq gdb-var-list (delq var gdb-var-list)))) + (speedbar-change-expand-button-char ?+) + (speedbar-delete-subblock indent)) + (t (error "Ooops... not sure what to do"))) + (speedbar-center-buffer-smartly)) + (message-box "GUD session has been killed"))) (defun gdb-get-target-string () (with-current-buffer gud-comint-buffer @@ -1132,7 +1135,7 @@ This filter may simply queue input for a later time." (if gdb-prompting (progn (gdb-send-item item) - (setq gdb-prompting nil)) + (setq gdb-prompting nil)) (push item gdb-input-queue)))) (defun gdb-dequeue-input () -- 2.39.2