From: Kim F. Storm <storm@cua.dk>
Date: Tue, 29 Jun 2004 13:01:27 +0000 (+0000)
Subject: (breakpoint-enabled-bitmap-face)
X-Git-Tag: ttn-vms-21-2-B4~5599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=619b6adbd2b96accbbf18051bf69149a029557ee;p=emacs.git

(breakpoint-enabled-bitmap-face)
(breakpoint-disabled-bitmap-face): Add :group 'gud.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 25863d1aba3..1e2ef00580e 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -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))))