From 79148a5ba3081ac307a8ea378460517fbf5d7af5 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 23 Dec 2003 20:32:31 +0000 Subject: [PATCH] (gud-speedbar-buttons): Use speed-bar-edit-line to edit values when there are no children. --- lisp/progmodes/gud.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 61fa0fad84..1d58bcd732 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -326,7 +326,7 @@ off the specialized speedbar mode." (goto-char (point-min)) (let ((case-fold-search t)) (looking-at "Watch Expressions:"))))) - (erase-buffer) + (erase-buffer) (insert "Watch Expressions:\n") (let ((var-list gdb-var-list)) (while var-list @@ -337,17 +337,21 @@ off the specialized speedbar mode." start (1+ (match-beginning 0)))) (if (equal (nth 2 var) "0") (speedbar-make-tag-line 'bracket ?? nil nil - (concat (car var) " " (nth 4 var)) - 'gdb-var-delete - nil 'speedbar-directory-face depth) + (concat (car var) "\t" (nth 4 var)) + 'gdb-edit-value + nil + (if (and (nth 5 var) + gdb-show-changed-values) + 'font-lock-warning-face + nil) depth) (if (and (cadr var-list) (string-match varnum (cadr (cadr var-list)))) (setq char ?-)) (speedbar-make-tag-line 'bracket char 'gdb-speedbar-expand-node varnum - (concat (car var) " " (nth 3 var)) + (concat (car var) "\t" (nth 3 var)) 'gdb-var-delete - nil 'speedbar-directory-face depth))) + nil nil depth))) (setq var-list (cdr var-list)))) (setq gdb-var-changed nil))) (t (if (and (save-excursion -- 2.39.2