diff options
| author | Kim F. Storm <[email protected]> | 2004-09-28 23:09:21 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2004-09-28 23:09:21 +0000 |
| commit | a9c65ba568afa027fdb411c88ca9ed7cca1f8f28 (patch) | |
| tree | 7038055061630348534a3c5a43daf2a3d8b88ffe /lisp/progmodes | |
| parent | 822c2a0a519e95d0133bd2f71abcd71a929e1692 (diff) | |
(breakpoint): Define as fringe bitmap.
(gdb-mouse-toggle-breakpoint): Fix fringe-bitmaps-at-pos usage.
(gdb-put-breakpoint-icon): Use breakpoint bitmap.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 1972074fdb..612a2034e0 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))) |