Mercurial > emacs
changeset 53101:b34783a00130
(gud-gdba-command-name): Find gdb command via PATH.
(breakpoint-xpm-data, breakpoint-enabled-pbm-data): Make smoother.
(breakpoint-enabled-icon, breakpoint-disabled-icon): Set :ascent
to 100 for icons to avoid increasing line height when shown.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 19 Nov 2003 23:40:17 +0000 |
parents | 6e721456722f |
children | ee7654b3187a |
files | lisp/gdb-ui.el |
diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Wed Nov 19 23:39:51 2003 +0000 +++ b/lisp/gdb-ui.el Wed Nov 19 23:40:17 2003 +0000 @@ -589,7 +589,7 @@ ;; any newlines. ;; -(defcustom gud-gdba-command-name "~/gdb/gdb/gdb -annotate=3" +(defcustom gud-gdba-command-name "gdb -annotate=3" "Default command to execute an executable under the GDB-UI debugger." :type 'string :group 'gud) @@ -933,32 +933,32 @@ \" c red\", \"+ c None\", /* pixels */ +\"+++ +++\", \"++ ++\", \"+ +\", \" \", \" \", \" \", \" \", -\" \", -\" \", \"+ +\", \"++ ++\", +\"+++ +++\", };" "XPM data used for breakpoint icon.") (defconst breakpoint-enabled-pbm-data "P1 10 10\", +0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 0 -0 1 1 1 1 1 1 1 1 1 1 0 -0 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 0 -0 0 0 1 1 1 1 1 1 0 0 0" +0 0 0 1 1 1 1 1 1 0 0 0 +0 0 0 0 1 1 1 1 0 0 0 0" "PBM data used for enabled breakpoint icon.") (defconst breakpoint-disabled-pbm-data @@ -977,13 +977,13 @@ "PBM data used for disabled breakpoint icon.") (defvar breakpoint-enabled-icon - (find-image `((:type xpm :data ,breakpoint-xpm-data) - (:type pbm :data ,breakpoint-enabled-pbm-data))) + (find-image `((:type xpm :data ,breakpoint-xpm-data :ascent 100) + (:type pbm :data ,breakpoint-enabled-pbm-data :ascent 100))) "Icon for enabled breakpoint in display margin") (defvar breakpoint-disabled-icon - (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled) - (:type pbm :data ,breakpoint-disabled-pbm-data))) + (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled :ascent 100) + (:type pbm :data ,breakpoint-disabled-pbm-data :ascent 100))) "Icon for disabled breakpoint in display margin") ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)