changeset 56285:313e3a9f34ca

(breakpoint-enabled-bitmap-face) (breakpoint-disabled-bitmap-face): Add :group 'gud.
author Kim F. Storm <storm@cua.dk>
date Tue, 29 Jun 2004 13:01:27 +0000
parents dc1d86b8bbbe
children a86513bb0232 59dcbfe97385
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 13 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el	Tue Jun 29 13:01:14 2004 +0000
+++ b/lisp/progmodes/gdb-ui.el	Tue Jun 29 13:01:27 2004 +0000
@@ -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 @@
 	(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 @@
   (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 @@
 	       (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 @@
 	  (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 @@
   '((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 @@
 	    (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 @@
 	(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 @@
   (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))))