diff lisp/progmodes/gdb-ui.el @ 83279:2006100ee57e

Merged from [e-mail]--gnu-2005 (patch 204-213) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-204 Clean up gdb-ui breakpoint faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-205 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-206 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-207 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-208 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-209 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-210 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-211 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-212 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-213 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-319

--- a/lisp/progmodes/gdb-ui.el	Wed Mar 23 13:35:08 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Sun Mar 27 17:29:43 2005 +0000
@@ -1161,12 +1161,9 @@
        "\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))
 
 (defface breakpoint-enabled
-  '((((type tty))
-     :weight bold
-     :foreground "red")
-    (t
-     :weight bold
-     :foreground "red"))
+  '((t
+     :foreground "red"
+     :weight bold))
   "Face for enabled breakpoint icon in fringe."
   :group 'gud)
 ;; compatibility alias for old name
@@ -1176,14 +1173,8 @@
   ;; We use different values of grey for different background types,
   ;; so that on low-color displays it will end up as something visible
   ;; if it has to be approximated.
-  '((((type tty)  (background dark))
-     :foreground "grey60")
-    (((type tty) (background light))
-     :foreground "grey40")
-    (((background dark))
-     :foreground "grey60")
-    (((background light))
-     :foreground "grey40"))
+  '((((background dark))  :foreground "grey60")
+    (((background light)) :foreground "grey40"))
   "Face for disabled breakpoint icon in fringe."
   :group 'gud)
 ;; compatibility alias for old name
@@ -1308,10 +1299,10 @@
 (defvar gdb-breakpoints-mode-map
   (let ((map (make-sparse-keymap))
 	(menu (make-sparse-keymap "Breakpoints")))
-    (define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint))
+    (define-key menu [quit] '("Quit"   . kill-this-buffer))
+    (define-key menu [goto] '("Goto"   . gdb-goto-breakpoint))
     (define-key menu [delete] '("Delete" . gdb-delete-breakpoint))
-    (define-key menu [goto] '("Goto"   . gdb-goto-breakpoint))
-
+    (define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint))
     (suppress-keymap map)
     (define-key map [menu-bar breakpoints] (cons "Breakpoints" menu))
     (define-key map " " 'gdb-toggle-breakpoint)
@@ -1319,6 +1310,7 @@
     (define-key map "q" 'kill-this-buffer)
     (define-key map "\r" 'gdb-goto-breakpoint)
     (define-key map [mouse-2] 'gdb-goto-breakpoint)
+    (define-key map [follow-link] 'mouse-face)
     map))
 
 (defun gdb-breakpoints-mode ()
@@ -1444,6 +1436,7 @@
     (define-key map "q" 'kill-this-buffer)
     (define-key map "\r" 'gdb-frames-select)
     (define-key map [mouse-2] 'gdb-frames-select)
+    (define-key map [follow-link] 'mouse-face)
     map))
 
 (defun gdb-frames-mode ()