Mercurial > emacs
changeset 65861:8063c9277e58
(gdb-fringe-width): New variable.
(gdb-ann3): Set it.
(gdb-put-breakpoint-icon): Don't take fringe-width from speedbar
frame.
(gdb-info-frames-custom): Use inverse-video for first five
characters of selected frame only.
(gdb-get-frame-number): Select frame even when point is on frame
number.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 06 Oct 2005 06:06:55 +0000 |
| parents | 85eb38c15a8f |
| children | 8b246680b846 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 16 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Thu Oct 06 06:05:59 2005 +0000 +++ b/lisp/progmodes/gdb-ui.el Thu Oct 06 06:06:55 2005 +0000 @@ -1547,20 +1547,23 @@ 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) + (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) - (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)) - ))) + (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,6 +1609,7 @@ (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)))