Mercurial > emacs
changeset 103754:b186b013ff68
* progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom): y/n
instead of on/off; do not highlight breakpoints without line
information.
| author | Dmitry Dzhus <dima@sphinx.net.ru> |
|---|---|
| date | Tue, 07 Jul 2009 19:54:08 +0000 |
| parents | bd7c204d425b |
| children | a1a6e341fa6e |
| files | lisp/ChangeLog lisp/progmodes/gdb-mi.el |
| diffstat | 2 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 07 17:40:32 2009 +0000 +++ b/lisp/ChangeLog Tue Jul 07 19:54:08 2009 +0000 @@ -15,6 +15,8 @@ (gdb-frame-handler): Match convention to for disassembly buffer mode name. (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 buffer properly.
--- a/lisp/progmodes/gdb-mi.el Tue Jul 07 17:40:32 2009 +0000 +++ b/lisp/progmodes/gdb-mi.el Tue Jul 07 19:54:08 2009 +0000 @@ -1556,8 +1556,8 @@ (gdb-get-field breakpoint 'disp) "\t" (let ((flag (gdb-get-field breakpoint 'enabled))) (if (string-equal flag "y") - (propertize "on" 'face font-lock-warning-face) - (propertize "off" 'face font-lock-type-face))) "\t" + (propertize "y" 'face font-lock-warning-face) + (propertize "n" 'face font-lock-type-face))) "\t" (gdb-get-field breakpoint 'times) "\t" (gdb-get-field breakpoint 'addr))) (let ((at (gdb-get-field breakpoint 'at))) @@ -1567,14 +1567,16 @@ (concat " in " (propertize (gdb-get-field breakpoint 'func) '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))) (t (insert (gdb-get-field breakpoint 'original-location))))) (add-text-properties (line-beginning-position) (line-end-position) - `(gdb-breakpoint ,breakpoint - mouse-face highlight - help-echo "mouse-2, RET: visit breakpoint")) + `(gdb-breakpoint ,breakpoint)) (newline)) (gdb-place-breakpoints)))