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