1069 |
(defvar breakpoint-disabled-icon nil |
(defvar breakpoint-disabled-icon nil |
1070 |
"Icon for disabled breakpoint in display margin") |
"Icon for disabled breakpoint in display margin") |
1071 |
|
|
1072 |
(defvar breakpoint-bitmap nil |
;; Bitmap for breakpoint in fringe |
1073 |
"Bitmap for breakpoint in fringe") |
(define-fringe-bitmap 'breakpoint |
1074 |
|
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c") |
1075 |
|
|
1076 |
(defface breakpoint-enabled-bitmap-face |
(defface breakpoint-enabled-bitmap-face |
1077 |
'((t |
'((t |
1141 |
(save-excursion |
(save-excursion |
1142 |
(goto-char (posn-point posn)) |
(goto-char (posn-point posn)) |
1143 |
(if (or (posn-object posn) |
(if (or (posn-object posn) |
1144 |
(and breakpoint-bitmap |
(eq (car (fringe-bitmaps-at-pos (posn-point posn))) |
1145 |
(eq (car (fringe-bitmaps-at-pos (posn-point posn))) |
'breakpoint)) |
|
breakpoint-bitmap))) |
|
1146 |
(gud-remove nil) |
(gud-remove nil) |
1147 |
(gud-break nil))))))) |
(gud-break nil))))))) |
1148 |
|
|
1831 |
(if (>= (car (window-fringes)) 8) |
(if (>= (car (window-fringes)) 8) |
1832 |
(gdb-put-string |
(gdb-put-string |
1833 |
nil (1+ start) |
nil (1+ start) |
1834 |
`(left-fringe |
`(left-fringe breakpoint |
|
,(or breakpoint-bitmap |
|
|
(setq breakpoint-bitmap |
|
|
(define-fringe-bitmap |
|
|
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))) |
|
1835 |
,(if enabled |
,(if enabled |
1836 |
'breakpoint-enabled-bitmap-face |
'breakpoint-enabled-bitmap-face |
1837 |
'breakpoint-disabled-bitmap-face))) |
'breakpoint-disabled-bitmap-face))) |