[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el |
Date: |
Wed, 08 Oct 2003 01:32:11 -0400 |
Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.44 emacs/lisp/gdb-ui.el:1.45
*** emacs/lisp/gdb-ui.el:1.44 Tue Sep 30 13:56:24 2003
--- emacs/lisp/gdb-ui.el Wed Oct 8 01:32:09 2003
***************
*** 4,10 ****
;; Maintainer: FSF
;; Keywords: unix, tools
! ;; Copyright (C) 2002 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
--- 4,10 ----
;; Maintainer: FSF
;; Keywords: unix, tools
! ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
***************
*** 1187,1199 ****
'(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)))))
(forward-line 1))))))
(defun gdb-stack-buffer-name ()
--- 1187,1197 ----
'(mouse-face highlight
help-echo "mouse-2, RET: Select frame"))
(beginning-of-line)
! (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 ()
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el,
Miles Bader <=