Commit e38b967a authored by Miles Bader's avatar Miles Bader
Browse files

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-193

Use gdb-ui breakpoint faces on ttys too

2005-03-20  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/gdb-ui.el (gdb-put-breakpoint-icon): Use breakpoint faces
   in text-mode too.  Change to new face names.
   (breakpoint-enabled): Renamed from `breakpoint-enabled-bitmap-face'.
   Add `:weight bold' attribute.
   (breakpoint-disabled): Renamed from `breakpoint-disabled-bitmap-face'.
parent a0747ee5
2005-03-20 Miles Bader <miles@gnu.org>
* progmodes/gdb-ui.el (gdb-put-breakpoint-icon): Use breakpoint faces
in text-mode too. Change to new face names.
(breakpoint-enabled): Renamed from `breakpoint-enabled-bitmap-face'.
Add `:weight bold' attribute.
(breakpoint-disabled): Renamed from `breakpoint-disabled-bitmap-face'.
2005-03-19 Juri Linkov <juri@jurta.org>
 
* files.el (auto-mode-alist): Add comment. Optimize jar/ear/war.
......
......@@ -1160,20 +1160,24 @@ 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
: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-bitmap-face
(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,8 +2198,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 +2236,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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment