procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(breakpoint): Define as fringe bitmap.

Browse source 
(gdb-mouse-toggle-breakpoint): Fix fringe-bitmaps-at-pos usage.
(gdb-put-breakpoint-icon): Use breakpoint bitmap.
This commit is contained in:
Kim F. Storm 2004-09-28 23:09:21 +00:00
parent 822c2a0a51
commit a9c65ba568
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/gdb-ui.el
View file

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