From: Kim F. Storm <storm@cua.dk>
Date: Tue, 28 Sep 2004 23:09:21 +0000 (+0000)
Subject: (breakpoint): Define as fringe bitmap.
X-Git-Tag: ttn-vms-21-2-B4~4777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9c65ba568afa027fdb411c88ca9ed7cca1f8f28;p=emacs.git

(breakpoint): Define as fringe bitmap.
(gdb-mouse-toggle-breakpoint): Fix fringe-bitmaps-at-pos usage.
(gdb-put-breakpoint-icon): Use breakpoint bitmap.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 1972074fdb1..612a2034e00 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1069,8 +1069,9 @@ static char *magick[] = {
 (defvar breakpoint-disabled-icon nil
   "Icon for disabled breakpoint in display margin")
 
-(defvar breakpoint-bitmap nil
-  "Bitmap for breakpoint in fringe")
+;; Bitmap for breakpoint in fringe
+(define-fringe-bitmap 'breakpoint
+  "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
 
 (defface breakpoint-enabled-bitmap-face
   '((t
@@ -1140,9 +1141,8 @@ static char *magick[] = {
 	  (save-excursion
 	    (goto-char (posn-point posn))
 	    (if (or (posn-object posn)
-		    (and breakpoint-bitmap
-			 (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
-			     breakpoint-bitmap)))
+		    (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
+			'breakpoint))
 		(gud-remove nil)
 	      (gud-break nil)))))))
 
@@ -1831,11 +1831,7 @@ BUFFER nil or omitted means use the current buffer."
 	(if (>= (car (window-fringes)) 8)
 	    (gdb-put-string
 	     nil (1+ start)
-	     `(left-fringe
-	       ,(or breakpoint-bitmap
-		    (setq breakpoint-bitmap
-			  (define-fringe-bitmap
-			    "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")))
+	     `(left-fringe breakpoint
 	       ,(if enabled
 		    'breakpoint-enabled-bitmap-face
 		  'breakpoint-disabled-bitmap-face)))