emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [emacs-unicode-2


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [emacs-unicode-2]
Date: Wed, 29 Sep 2004 03:44:55 -0400

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.7.2.4 
emacs/lisp/progmodes/gdb-ui.el:1.7.2.5
*** emacs/lisp/progmodes/gdb-ui.el:1.7.2.4      Tue Jul  6 02:56:14 2004
--- emacs/lisp/progmodes/gdb-ui.el      Wed Sep 29 07:22:20 2004
***************
*** 1069,1076 ****
  (defvar breakpoint-disabled-icon nil
    "Icon for disabled breakpoint in display margin")
  
! (defvar breakpoint-bitmap nil
!   "Bitmap for breakpoint in fringe")
  
  (defface breakpoint-enabled-bitmap-face
    '((t
--- 1069,1077 ----
  (defvar breakpoint-disabled-icon nil
    "Icon for disabled breakpoint in display margin")
  
! ;; Bitmap for breakpoint in fringe
! (define-fringe-bitmap 'breakpoint
!   "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
  
  (defface breakpoint-enabled-bitmap-face
    '((t
***************
*** 1140,1148 ****
          (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)))
                (gud-remove nil)
              (gud-break nil)))))))
  
--- 1141,1148 ----
          (save-excursion
            (goto-char (posn-point posn))
            (if (or (posn-object posn)
!                   (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
!                       'breakpoint))
                (gud-remove nil)
              (gud-break nil)))))))
  
***************
*** 1831,1841 ****
        (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")))
               ,(if enabled
                    'breakpoint-enabled-bitmap-face
                  'breakpoint-disabled-bitmap-face)))
--- 1831,1837 ----
        (if (>= (car (window-fringes)) 8)
            (gdb-put-string
             nil (1+ start)
!            `(left-fringe breakpoint
               ,(if enabled
                    'breakpoint-enabled-bitmap-face
                  'breakpoint-disabled-bitmap-face)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]