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

[Miles Bader]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.53 emacs/lisp/progmodes/gdb-ui.el:1.54
*** emacs/lisp/progmodes/gdb-ui.el:1.53 Wed Mar  9 23:20:07 2005
--- emacs/lisp/progmodes/gdb-ui.el      Sun Mar 20 01:49:32 2005
***************
*** 1160,1179 ****
       (define-fringe-bitmap 'breakpoint
         "\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))
  
! (defface breakpoint-enabled-bitmap-face
    '((t
       :inherit fringe
       :foreground "red"))
    "Face for enabled breakpoint icon in fringe."
    :group 'gud)
  
! (defface breakpoint-disabled-bitmap-face
    '((t
       :inherit fringe
       :foreground "grey60"))
    "Face for disabled breakpoint icon in fringe."
    :group 'gud)
! 
  
  ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)
  (defun gdb-info-breakpoints-custom ()
--- 1160,1183 ----
       (define-fringe-bitmap 'breakpoint
         "\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))
  
! (defface breakpoint-enabled
    '((t
       :inherit fringe
+      :weight bold
       :foreground "red"))
    "Face for enabled breakpoint icon in fringe."
    :group 'gud)
+ ;; compatibility alias for old name
+ (put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled)
  
! (defface breakpoint-disabled
    '((t
       :inherit fringe
       :foreground "grey60"))
    "Face for disabled breakpoint icon in fringe."
    :group 'gud)
! ;; compatibility alias for old name
! (put 'breakpoint-disabled-bitmap-face 'face-alias 'breakpoint-disabled)
  
  ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)
  (defun gdb-info-breakpoints-custom ()
***************
*** 2194,2201 ****
             nil (1+ start)
             `(left-fringe breakpoint
                           ,(if enabled
!                               'breakpoint-enabled-bitmap-face
!                             'breakpoint-disabled-bitmap-face)))
          (when (< left-margin-width 2)
            (save-current-buffer
              (setq left-margin-width 2)
--- 2198,2205 ----
             nil (1+ start)
             `(left-fringe breakpoint
                           ,(if enabled
!                               'breakpoint-enabled
!                             'breakpoint-disabled)))
          (when (< left-margin-width 2)
            (save-current-buffer
              (setq left-margin-width 2)
***************
*** 2232,2238 ****
              (set-window-margins
               (get-buffer-window (current-buffer) 0)
               left-margin-width right-margin-width))))
!       (gdb-put-string putstring (1+ start)))))
  
  (defun gdb-remove-breakpoint-icons (start end &optional remove-margin)
    (gdb-remove-strings start end)
--- 2236,2245 ----
              (set-window-margins
               (get-buffer-window (current-buffer) 0)
               left-margin-width right-margin-width))))
!       (gdb-put-string
!        (propertize putstring
!                  'face (if enabled 'breakpoint-enabled 'breakpoint-disabled))
!        (1+ start)))))
  
  (defun gdb-remove-breakpoint-icons (start end &optional remove-margin)
    (gdb-remove-strings start end)