Commit e7006f27 authored by Dmitry Dzhus's avatar Dmitry Dzhus

* progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom): y/n

instead of on/off; do not highlight breakpoints without line
information.
parent 17c1380b
...@@ -15,6 +15,8 @@ ...@@ -15,6 +15,8 @@
(gdb-frame-handler): Match convention to for disassembly buffer (gdb-frame-handler): Match convention to for disassembly buffer
mode name. mode name.
(gdb-stack-list-frames-handler): Rewritten without regexps. (gdb-stack-list-frames-handler): Rewritten without regexps.
(gdb-breakpoints-list-handler-custom): y/n instead of on/off; do
not highlight breakpoints without line information.
* progmodes/gdb-mi.el (gdb-init-1): Set mode name for disassembly * progmodes/gdb-mi.el (gdb-init-1): Set mode name for disassembly
buffer properly. buffer properly.
......
...@@ -1556,8 +1556,8 @@ OUTPUT-HANDLER-NAME handler uses customization of CUSTOM-DEFUN." ...@@ -1556,8 +1556,8 @@ OUTPUT-HANDLER-NAME handler uses customization of CUSTOM-DEFUN."
(gdb-get-field breakpoint 'disp) "\t" (gdb-get-field breakpoint 'disp) "\t"
(let ((flag (gdb-get-field breakpoint 'enabled))) (let ((flag (gdb-get-field breakpoint 'enabled)))
(if (string-equal flag "y") (if (string-equal flag "y")
(propertize "on" 'face font-lock-warning-face) (propertize "y" 'face font-lock-warning-face)
(propertize "off" 'face font-lock-type-face))) "\t" (propertize "n" 'face font-lock-type-face))) "\t"
(gdb-get-field breakpoint 'times) "\t" (gdb-get-field breakpoint 'times) "\t"
(gdb-get-field breakpoint 'addr))) (gdb-get-field breakpoint 'addr)))
(let ((at (gdb-get-field breakpoint 'at))) (let ((at (gdb-get-field breakpoint 'at)))
...@@ -1567,14 +1567,16 @@ OUTPUT-HANDLER-NAME handler uses customization of CUSTOM-DEFUN." ...@@ -1567,14 +1567,16 @@ OUTPUT-HANDLER-NAME handler uses customization of CUSTOM-DEFUN."
(concat " in " (concat " in "
(propertize (gdb-get-field breakpoint 'func) (propertize (gdb-get-field breakpoint 'func)
'face font-lock-function-name-face))) 'face font-lock-function-name-face)))
(gdb-insert-frame-location breakpoint))) (gdb-insert-frame-location breakpoint)
(add-text-properties (line-beginning-position)
(line-end-position)
'(mouse-face highlight
help-echo "mouse-2, RET: visit breakpoint"))))
(at (insert (concat " " at))) (at (insert (concat " " at)))
(t (insert (gdb-get-field breakpoint 'original-location))))) (t (insert (gdb-get-field breakpoint 'original-location)))))
(add-text-properties (line-beginning-position) (add-text-properties (line-beginning-position)
(line-end-position) (line-end-position)
`(gdb-breakpoint ,breakpoint `(gdb-breakpoint ,breakpoint))
mouse-face highlight
help-echo "mouse-2, RET: visit breakpoint"))
(newline)) (newline))
(gdb-place-breakpoints))) (gdb-place-breakpoints)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment