/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7.2.4 by miles, Tue Jul 6 02:56:14 2004 UTC revision 1.7.2.5 by miles, Wed Sep 29 07:22:20 2004 UTC
# Line 1069  static char *magick[] = { Line 1069  static char *magick[] = {
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
# Line 1140  static char *magick[] = { Line 1141  static char *magick[] = {
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    
# Line 1831  BUFFER nil or omitted means use the curr Line 1831  BUFFER nil or omitted means use the curr
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)))

Legend:
Removed from v.1.7.2.4  
changed lines
  Added in v.1.7.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26