procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(breakpoint-enabled-bitmap-face)

Browse source 
(breakpoint-disabled-bitmap-face): Add :group 'gud.
This commit is contained in:
Kim F. Storm 2004-06-29 13:01:27 +00:00
parent 7549786255
commit 619b6adbd2
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/progmodes/gdb-ui.el
View file

@ -39,7 +39,7 @@
;; Kingdon and uses GDB's annotation interface. You don't need to know about
;; annotations to use this mode as a debugger, but if you are interested
;; developing the mode itself, then see the Annotations section in the GDB
;; info manual.
;; info manual.
;;
;; GDB developers plan to make the annotation interface obsolete. A new
;; interface called GDB/MI (machine interface) has been designed to replace
@ -70,7 +70,7 @@
(defvar gdb-variables '()
"A list of variables that are local to the GUD buffer.")
(defvar gdb-server-prefix nil)
;;;###autoload
(defun gdba (command-line)
"Run gdb on program FILE in buffer *gud-FILE*.
@ -227,7 +227,7 @@ speedbar."
(if (string-equal expr (car var)) (throw 'already-watched nil)))
(set-text-properties 0 (length expr) nil expr)
(gdb-enqueue-input
(list
(list
(if (eq gud-minor-mode 'gdba)
(concat "server interpreter mi \"-var-create - * " expr "\"\n")
(concat"-var-create - * " expr "\n"))
@ -326,7 +326,7 @@ speedbar."
(if (not (member 'gdb-var-update gdb-pending-triggers))
(progn
(gdb-enqueue-input
(list
(list
(if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
"server interpreter mi \"-var-update *\"\n"
"-var-update *\n")
@ -362,7 +362,7 @@ speedbar."
(varnum (cadr var)))
(unless (string-match "\\." varnum)
(gdb-enqueue-input
(list
(list
(if (with-current-buffer gud-comint-buffer
(eq gud-minor-mode 'gdba))
(concat "server interpreter mi \"-var-delete " varnum "\"\n")
@ -486,7 +486,7 @@ The key should be one of the cars in `gdb-buffer-rules-assoc'."
(set (make-local-variable 'gdb-buffer-type) key)
(if (cdr (cdr rules))
(funcall (car (cdr (cdr rules)))))
(set (make-local-variable 'gud-minor-mode)
(set (make-local-variable 'gud-minor-mode)
(with-current-buffer gud-comint-buffer gud-minor-mode))
(set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
new))))
@ -1076,13 +1076,15 @@ static char *magick[] = {
'((t
:inherit fringe
:foreground "red"))
"Face for enabled breakpoint icon in fringe.")
"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.")
"Face for disabled breakpoint icon in fringe."
:group 'gud)
;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)
@ -1837,7 +1839,7 @@ BUFFER nil or omitted means use the current buffer."
(save-current-buffer
(setq left-margin-width 2)
(if (get-buffer-window (current-buffer) 'visible)
(set-window-margins
(set-window-margins
(get-buffer-window (current-buffer) 'visible)
left-margin-width right-margin-width))))
(put-image
@ -1864,7 +1866,7 @@ BUFFER nil or omitted means use the current buffer."
(save-current-buffer
(setq left-margin-width 2)
(if (get-buffer-window (current-buffer) 'visible)
(set-window-margins
(set-window-margins
(get-buffer-window (current-buffer) 'visible)
left-margin-width right-margin-width))))
(gdb-put-string (if enabled "B" "b") (1+ start)))))
@ -1876,7 +1878,7 @@ BUFFER nil or omitted means use the current buffer."
(when remove-margin
(setq left-margin-width 0)
(if (get-buffer-window (current-buffer) 'visible)
(set-window-margins
(set-window-margins
(get-buffer-window (current-buffer) 'visible)
left-margin-width right-margin-width))))