[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:43:34 -0400 |
Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.4.2.10
emacs/lisp/progmodes/gdb-ui.el:1.4.2.11
*** emacs/lisp/progmodes/gdb-ui.el:1.4.2.10 Tue Jul 6 10:26:55 2004
--- emacs/lisp/progmodes/gdb-ui.el Wed Oct 6 05:23:58 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)))
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [lexbind],
Miles Bader <=