From: Kim F. Storm Date: Wed, 19 Nov 2003 23:40:17 +0000 (+0000) Subject: (gud-gdba-command-name): Find gdb command via PATH. X-Git-Tag: ttn-vms-21-2-B4~8327 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=028f065d44302568e80607c0f875af4c6d6b27d6;p=emacs.git (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. --- diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index bb51756f2e6..be61bf8059a 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -589,7 +589,7 @@ This filter may simply queue output for a later time." ;; 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 @@ static char *magick[] = { \" 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 @@ static char *magick[] = { "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)