Small gdb-breakpoints fix (tiny change)

Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00753.html

* lisp/progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom):
Handle breakpoints with no "type".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9dce6280a64d28d08784cfe28f79450042a3109..7d7d250712fe4823a21e7cd59dced75ecbeee600 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-06  Kaushik Srenevasan  <ksrenevasan@gmail.com>  (tiny change)
+
+       * progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom):
+       Handle breakpoints with no "type".
+
 2012-03-06  Glenn Morris  <rgm@gnu.org>
 
        * files.el (locate-dominating-file): Add optional predicate argument.

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 0c45c3f5e5d56d87d1128bea65264ccfb414e6e6..8ea255e49ddf410e58e230b51a990a173d62532c 100644 (file)
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2397,15 +2397,15 @@ HANDLER-NAME handler uses customization of CUSTOM-DEFUN. See
         (gdb-table-add-row table
                            (list
                             (bindat-get-field breakpoint 'number)
-                            type
-                            (bindat-get-field breakpoint 'disp)
+                            (or type "")
+                            (or (bindat-get-field breakpoint 'disp) "")
                             (let ((flag (bindat-get-field breakpoint 'enabled)))
                               (if (string-equal flag "y")
                                   (propertize "y" 'font-lock-face  font-lock-warning-face)
                                 (propertize "n" 'font-lock-face  font-lock-comment-face)))
                             (bindat-get-field breakpoint 'addr)
-                            (bindat-get-field breakpoint 'times)
-                            (if (string-match ".*watchpoint" type)
+                            (or (bindat-get-field breakpoint 'times) "")
+                            (if (and type (string-match ".*watchpoint" type))
                                 (bindat-get-field breakpoint 'what)
                               (or pending at
                                   (concat "in "