Revision: miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-79

Use :inverse-video face in gdb-ui.el

* gdb-ui.el (gdb-info-frames-custom): Use proper :inverse-video
face instead of attempting to emulate it.

2 files changed, 11 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf554e9693f..95c1bfec90b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-08  Miles Bader  <miles@gnu.org>
+
+        * gdb-ui.el (gdb-info-frames-custom): Use proper :inverse-video
+        face instead of attempting to emulate it.
+
 2003-10-07  Kenichi Handa  <handa@m17n.org>
 
         * international/mule-diag.el (list-coding-systems-1): List coding
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el
index 736f7c46b0c..e0c2e74b0f1 100644
--- a/lisp/gdb-ui.el
+++ b/lisp/gdb-ui.el
@@ -4,7 +4,7 @@
 ;; Maintainer: FSF
 ;; Keywords: unix, tools
 
-;; Copyright (C) 2002  Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003  Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -1187,13 +1187,11 @@ current line."
                              '(mouse-face highlight
                                help-echo "mouse-2, RET: Select frame"))
           (beginning-of-line)
-          (if (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)")
-                  (looking-at "^#[0-9]*\\s-*\\(\\S-*\\)"))
-              (if (equal (match-string 1) gdb-current-frame)
-                  (put-text-property (point-at-bol) (point-at-eol)
-                   'face 
-                   `(:background ,(face-attribute 'default :foreground)
-                     :foreground ,(face-attribute 'default :background)))))
+          (when (and (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)")
+                         (looking-at "^#[0-9]*\\s-*\\(\\S-*\\)"))
+                     (equal (match-string 1) gdb-current-frame))
+            (put-text-property (point-at-bol) (point-at-eol)
+                               'face '(:inverse-video t)))
           (forward-line 1))))))
 
 (defun gdb-stack-buffer-name ()