[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/01/28 09:42:23

Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.198
retrieving revision 1.199
diff -u -b -r1.198 -r1.199
--- gdb-ui.el   21 Jan 2007 21:03:40 -0000      1.198
+++ gdb-ui.el   28 Jan 2007 09:42:23 -0000      1.199
@@ -1788,6 +1788,9 @@
   "Face for disabled breakpoint icon in fringe."
   :group 'gud)
 
+(defconst gdb-breakpoint-regexp
+  "\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
+
 ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
 (defun gdb-info-breakpoints-custom ()
   (let ((flag) (bptno))
@@ -1981,9 +1984,6 @@
       'gdb-invalidate-breakpoints
     'gdbmi-invalidate-breakpoints))
 
-(defconst gdb-breakpoint-regexp
-  "\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
-
 (defun gdb-toggle-breakpoint ()
   "Enable/disable breakpoint at current line."
   (interactive)
@@ -3436,11 +3436,23 @@
     (let* ((varnum (match-string 1))
           (var (assoc varnum gdb-var-list)))
       (when var
-       (if (string-equal (match-string 3) "false")
-           (setcar (nthcdr 5 var) 'out-of-scope)
+       (let ((match (match-string 3)))
+         (cond ((string-equal match "false")
+                (setcar (nthcdr 5 var) 'out-of-scope))
+               ((string-equal match "true")
          (setcar (nthcdr 5 var) 'changed)
          (setcar (nthcdr 4 var)
-                 (read (match-string 2)))))))
+                        (read (match-string 2))))
+;;             ((string-equal match "invalid")
+;;              (gdb-enqueue-input
+;;               (list
+;;                (if (eq (buffer-local-value
+;;                         'gud-minor-mode gud-comint-buffer) 'gdba)
+;;                    (concat "server interpreter mi \"-var-delete "
+;;                            varnum "\"\n")
+;;                  (concat "-var-delete " varnum "\n"))
+;;                'ignore)))
+               )))))
   (setq gdb-pending-triggers
    (delq 'gdb-var-update gdb-pending-triggers))
   (gdb-speedbar-update))