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

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.92 emacs/lisp/progmodes/gdb-ui.el:1.93
*** emacs/lisp/progmodes/gdb-ui.el:1.92 Thu Oct  6 03:42:24 2005
--- emacs/lisp/progmodes/gdb-ui.el      Thu Oct  6 06:06:55 2005
***************
*** 1547,1566 ****
                               help-echo "mouse-2, RET: Select frame"))
          (goto-char bl)
          (when (looking-at "^#\\([0-9]+\\)")
!           (if (equal (match-string 1) gdb-frame-number)
!               (put-text-property bl el 'face '(:inverse-video t))
!             (when (re-search-forward " in \\([^ ]+\\) (" el t)
                (put-text-property (match-beginning 1) (match-end 1)
-                                  'face font-lock-function-name-face)
-               (setq bl (match-end 0))
-               (while (re-search-forward "<\\([^>]+\\)>" el t)
-                 (put-text-property (match-beginning 1) (match-end 1)
                                     'face font-lock-function-name-face))
!               (goto-char bl)
!               (while (re-search-forward "\\(\\(\\sw\\|[_.]\\)+\\)=" el t)
!                 (put-text-property (match-beginning 1) (match-end 1)
!                                    'face font-lock-variable-name-face))
!               )))
          (forward-line 1))))))
  
  (defun gdb-stack-buffer-name ()
--- 1547,1569 ----
                               help-echo "mouse-2, RET: Select frame"))
          (goto-char bl)
          (when (looking-at "^#\\([0-9]+\\)")
!           (when (string-equal (match-string 1) gdb-frame-number)
!               (put-text-property bl (+ bl 4)
!                                  'face '(:inverse-video t)))
!           (when (re-search-forward
!                  (concat
!                   (if (string-equal (match-string 1) "0") "" " in ")
!                   "\\([^ ]+\\) (") el t)
!             (put-text-property (match-beginning 1) (match-end 1)
!                                'face font-lock-function-name-face)
!             (setq bl (match-end 0))
!             (while (re-search-forward "<\\([^>]+\\)>" el t)
                (put-text-property (match-beginning 1) (match-end 1)
                                     'face font-lock-function-name-face))
!             (goto-char bl)
!             (while (re-search-forward "\\(\\(\\sw\\|[_.]\\)+\\)=" el t)
!               (put-text-property (match-beginning 1) (match-end 1)
!                                  'face font-lock-variable-name-face))))
          (forward-line 1))))))
  
  (defun gdb-stack-buffer-name ()
***************
*** 1606,1611 ****
--- 1609,1615 ----
  
  (defun gdb-get-frame-number ()
    (save-excursion
+     (end-of-line)
      (let* ((pos (re-search-backward "^#*\\([0-9]*\\)" nil t))
           (n (or (and pos (match-string-no-properties 1)) "0")))
        n)))