martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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.
This commit is contained in:
Miles Bader
2003-10-08 05:32:09 +00:00
parent fd43229afd
commit 6d3ea376c4
2 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -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

14
lisp/gdb-ui.el
View File

@@ -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 ()