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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf554e9693fa8527ca98846afb1446e79c99ca58..95c1bfec90b5aaad079f0220bfb896228e03f1d9 100644 (file)
--- 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 736f7c46b0cb9884d69fa9d211cf9955f91fd9fd..e0c2e74b0f111e3b0b072cf9cedbffc61e4c21f9 100644 (file)
--- 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 ()