diff options
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 32 |
1 files changed, 20 insertions, 12 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index fea1bbce69..cb58a53a0d 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -1160,20 +1160,25 @@ static char *magick[] = { (define-fringe-bitmap 'breakpoint "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")) -(defface breakpoint-enabled-bitmap-face +(defface breakpoint-enabled '((t - :inherit fringe - :foreground "red")) + :foreground "red" + :weight bold)) "Face for enabled breakpoint icon in fringe." :group 'gud) - -(defface breakpoint-disabled-bitmap-face - '((t - :inherit fringe - :foreground "grey60")) +;; compatibility alias for old name +(put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled) + +(defface breakpoint-disabled + ;; We use different values of grey for different background types, + ;; so that on low-color displays it will end up as something visible + ;; if it has to be approximated. + '((((background dark)) :foreground "grey60") + (((background light)) :foreground "grey40")) "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,8 +2199,8 @@ BUFFER nil or omitted means use the current buffer." nil (1+ start) `(left-fringe breakpoint ,(if enabled - 'breakpoint-enabled-bitmap-face - 'breakpoint-disabled-bitmap-face))) + 'breakpoint-enabled + 'breakpoint-disabled))) (when (< left-margin-width 2) (save-current-buffer (setq left-margin-width 2) @@ -2232,7 +2237,10 @@ BUFFER nil or omitted means use the current buffer." (set-window-margins (get-buffer-window (current-buffer) 0) left-margin-width right-margin-width)))) - (gdb-put-string putstring (1+ start))))) + (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) |