/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.92 by nickrob, Thu Oct 6 03:42:24 2005 UTC revision 1.93 by nickrob, Thu Oct 6 06:06:55 2005 UTC
# Line 1547  static char *magick[] = { Line 1547  static char *magick[] = {
1547                                 help-echo "mouse-2, RET: Select frame"))                                 help-echo "mouse-2, RET: Select frame"))
1548            (goto-char bl)            (goto-char bl)
1549            (when (looking-at "^#\\([0-9]+\\)")            (when (looking-at "^#\\([0-9]+\\)")
1550              (if (equal (match-string 1) gdb-frame-number)              (when (string-equal (match-string 1) gdb-frame-number)
1551                  (put-text-property bl el 'face '(:inverse-video t))                  (put-text-property bl (+ bl 4)
1552                (when (re-search-forward " in \\([^ ]+\\) (" el t)                                     'face '(:inverse-video t)))
1553                (when (re-search-forward
1554                       (concat
1555                        (if (string-equal (match-string 1) "0") "" " in ")
1556                        "\\([^ ]+\\) (") el t)
1557                  (put-text-property (match-beginning 1) (match-end 1)
1558                                     'face font-lock-function-name-face)
1559                  (setq bl (match-end 0))
1560                  (while (re-search-forward "<\\([^>]+\\)>" el t)
1561                  (put-text-property (match-beginning 1) (match-end 1)                  (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)  
1562                                       'face font-lock-function-name-face))                                       'face font-lock-function-name-face))
1563                  (goto-char bl)                (goto-char bl)
1564                  (while (re-search-forward "\\(\\(\\sw\\|[_.]\\)+\\)=" el t)                (while (re-search-forward "\\(\\(\\sw\\|[_.]\\)+\\)=" el t)
1565                    (put-text-property (match-beginning 1) (match-end 1)                  (put-text-property (match-beginning 1) (match-end 1)
1566                                       'face font-lock-variable-name-face))                                     'face font-lock-variable-name-face))))
                 )))  
1567            (forward-line 1))))))            (forward-line 1))))))
1568    
1569  (defun gdb-stack-buffer-name ()  (defun gdb-stack-buffer-name ()
# Line 1606  static char *magick[] = { Line 1609  static char *magick[] = {
1609    
1610  (defun gdb-get-frame-number ()  (defun gdb-get-frame-number ()
1611    (save-excursion    (save-excursion
1612        (end-of-line)
1613      (let* ((pos (re-search-backward "^#*\\([0-9]*\\)" nil t))      (let* ((pos (re-search-backward "^#*\\([0-9]*\\)" nil t))
1614             (n (or (and pos (match-string-no-properties 1)) "0")))             (n (or (and pos (match-string-no-properties 1)) "0")))
1615        n)))        n)))

Legend:
Removed from v.1.92  
changed lines
  Added in v.1.93

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26