[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el

[Miles Bader]

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