Mercurial > emacs

changeset 53250:d0090d33e7d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-speedbar-buttons): Use speed-bar-edit-line to edit values when there are no children.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 23 Dec 2003 20:32:31 +0000
parents 97802d013c5c
children 9bb418538a0f
files lisp/progmodes/gud.el
diffstat 1 files changed, 10 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Tue Dec 23 20:31:21 2003 +0000
+++ b/lisp/progmodes/gud.el	Tue Dec 23 20:32:31 2003 +0000
@@ -326,7 +326,7 @@
 		       (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 @@
 		      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