From 028f065d44302568e80607c0f875af4c6d6b27d6 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Wed, 19 Nov 2003 23:40:17 +0000
Subject: [PATCH] (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.

---
 lisp/gdb-ui.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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)
-- 
2.39.2