# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1193722654 0
# Node ID 9963a1e6e29f9845ace454f198430d9c10ae6c58
# Parent  379c739aa3c5097932a9d279d1ae3325d8b7b530
(gdb-delete-out-of-scope): New option.
(gdb-var-update-handler-1): Use it.

diff -r 379c739aa3c5 -r 9963a1e6e29f lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Tue Oct 30 05:35:54 2007 +0000
+++ b/lisp/progmodes/gdb-ui.el	Tue Oct 30 05:37:34 2007 +0000
@@ -947,6 +947,12 @@
   :group 'gud
   :version "22.1")
 
+(defcustom gdb-delete-out-of-scope t
+  "If non-nil delete watch expressions automatically when they go out of scope."
+  :type 'boolean
+  :group 'gud
+  :version "22.2")
+
 (defun gdb-speedbar-expand-node (text token indent)
   "Expand the node the user clicked on.
 TEXT is the text of the button we clicked on, a + or - item.
@@ -3515,7 +3521,9 @@
       (when var
 	(let ((match (match-string 3)))
 	  (cond ((string-equal match "false")
-		 (setcar (nthcdr 5 var) 'out-of-scope))
+		 (if gdb-delete-out-of-scope
+		     (gdb-var-delete-1 varnum)
+		   (setcar (nthcdr 5 var) 'out-of-scope)))
 		((string-equal match "true")
 		 (setcar (nthcdr 5 var) 'changed)
 		 (setcar (nthcdr 4 var)