(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 25863d1aba3849f25157b6b6876a8350530a22e7..1e2ef00580e8e0d95dba31666231d120d0cd197a 100644 (file)
--- 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))))