[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC] |
Date: |
Fri, 18 Sep 2009 00:51:12 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Nick Roberts <nickrob> 09/09/18 00:51:12
Modified files:
lisp/progmodes : gud.el
Log message:
(gud-speedbar-item-info): Adjust for change to
gdb-var-list.
(gud-speedbar-buttons): Make node expandable if expression "has more"
children.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.162.2.3&r2=1.162.2.4
Patches:
Index: gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.162.2.3
retrieving revision 1.162.2.4
diff -u -b -r1.162.2.3 -r1.162.2.4
--- gud.el 10 Aug 2009 03:45:40 -0000 1.162.2.3
+++ gud.el 18 Sep 2009 00:51:12 -0000 1.162.2.4
@@ -471,8 +471,8 @@
(defun gud-speedbar-item-info ()
"Display the data type of the watch expression element."
(let ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list)))
- (if (nth 6 var)
- (speedbar-message "%s: %s" (nth 6 var) (nth 3 var))
+ (if (nth 7 var)
+ (speedbar-message "%s: %s" (nth 7 var) (nth 3 var))
(speedbar-message "%s" (nth 3 var)))))
(defun gud-install-speedbar-variables ()
@@ -550,7 +550,8 @@
(let* (char (depth 0) (start 0) (var (car var-list))
(varnum (car var)) (expr (nth 1 var))
(type (if (nth 3 var) (nth 3 var) " "))
- (value (nth 4 var)) (status (nth 5 var)))
+ (value (nth 4 var)) (status (nth 5 var))
+ (has-more (nth 6 var)))
(put-text-property
0 (length expr) 'face font-lock-variable-name-face expr)
(put-text-property
@@ -559,9 +560,10 @@
(setq depth (1+ depth)
start (1+ (match-beginning 0))))
(if (eq depth 0) (setq parent nil))
- (if (or (equal (nth 2 var) "0")
+ (if (and (or (not has-more) (string-equal has-more "0"))
+ (or (equal (nth 2 var) "0")
(and (equal (nth 2 var) "1")
- (string-match "char \\*$" type)))
+ (string-match "char \\*$" type)) ))
(speedbar-make-tag-line
'bracket ?? nil nil
(concat expr "\t" value)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC],
Nick Roberts <=