mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Small gdb-breakpoints fix (tiny change)

Browse Source 
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".
This commit is contained in:
Kaushik Srenevasan 2012-03-06 00:37:38 -08:00 committed by Glenn Morris
parent 99a8306435
commit 133b8e1120
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

8
lisp/progmodes/gdb-mi.el
View File

@ -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 "