(breakpoint-enabled-bitmap-face)

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

1 files changed, 13 insertions, 11 deletions

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))))