[Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el

[Dmitry Dzhus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Dmitry Dzhus <sphinx>   09/07/07 19:54:12

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : gdb-mi.el 

Log message:
        * progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom): y/n
        instead of on/off; do not highlight breakpoints without line
        information.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15777&r2=1.15778
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.9&r2=1.10

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15777
retrieving revision 1.15778
diff -u -b -r1.15777 -r1.15778
--- ChangeLog   7 Jul 2009 17:40:32 -0000       1.15777
+++ ChangeLog   7 Jul 2009 19:54:08 -0000       1.15778
@@ -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.

Index: progmodes/gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- progmodes/gdb-mi.el 7 Jul 2009 17:40:35 -0000       1.9
+++ progmodes/gdb-mi.el 7 Jul 2009 19:54:12 -0000       1.10
@@ -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)))