Mercurial > emacs
changeset 52810:f49c1c4d92de
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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 08 Oct 2003 05:32:09 +0000 |
| parents | 8471c440544b |
| children | 35be4df0faf9 |
| files | lisp/ChangeLog lisp/gdb-ui.el |
| diffstat | 2 files changed, 11 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Oct 08 05:10:43 2003 +0000 +++ b/lisp/ChangeLog Wed Oct 08 05:32:09 2003 +0000 @@ -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
--- a/lisp/gdb-ui.el Wed Oct 08 05:10:43 2003 +0000 +++ b/lisp/gdb-ui.el Wed Oct 08 05:32:09 2003 +0000 @@ -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 @@ '(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 ()