Mercurial > emacs

comparison lisp/progmodes/gdb-ui.el @ 83386:db4e74787e6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 133-141, 596-609) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-596 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-597 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-598 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-599 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-600 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-601 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-602 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-603 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-604 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-605 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-606 Remove lisp/toolbar directory * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-607 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-608 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-609 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-133 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-134 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-135 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-136 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-137 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-138 Update from CVS: texi/gnus.texi (RSS): Fix key description. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-139 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-140 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-141 Update from CVS: texi/gnus.texi (Document Server Internals): Addition. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-426
author Karoly Lorentey <lorentey@elte.hu>
date Wed, 19 Oct 2005 14:06:17 +0000
parents 08b4dd6a6e87 9698655085d3
children b31326248cf6
comparison
equal deleted inserted replaced
83385:1cd4072747c6 83386:db4e74787e6f
435 (match-string 2) 435 (match-string 2)
436 (match-string 3) 436 (match-string 3)
437 nil nil))) 437 nil nil)))
438 (push var gdb-var-list) 438 (push var gdb-var-list)
439 (speedbar 1) 439 (speedbar 1)
440 (unless (string-equal
441 speedbar-initial-expansion-list-name "GUD")
442 (speedbar-change-initial-expansion-list "GUD"))
440 (if (equal (nth 2 var) "0") 443 (if (equal (nth 2 var) "0")
441 (gdb-enqueue-input 444 (gdb-enqueue-input
442 (list 445 (list
443 (if (with-current-buffer 446 (if (with-current-buffer
444 gud-comint-buffer (eq gud-minor-mode 'gdba)) 447 gud-comint-buffer (eq gud-minor-mode 'gdba))
598 (gdbmi-var-list-children token)))) 601 (gdbmi-var-list-children token))))
599 ((string-match "-" text) ;contract this node 602 ((string-match "-" text) ;contract this node
600 (dolist (var gdb-var-list) 603 (dolist (var gdb-var-list)
601 (if (string-match (concat token "\\.") (nth 1 var)) 604 (if (string-match (concat token "\\.") (nth 1 var))
602 (setq gdb-var-list (delq var gdb-var-list)))) 605 (setq gdb-var-list (delq var gdb-var-list))))
603 (setq gdb-var-changed t)))) 606 (setq gdb-var-changed t)
607 (with-current-buffer gud-comint-buffer
608 (speedbar-timer-fn)))))
604 609
605 (defun gdb-get-target-string () 610 (defun gdb-get-target-string ()
606 (with-current-buffer gud-comint-buffer 611 (with-current-buffer gud-comint-buffer
607 gud-target-name)) 612 gud-target-name))
608 613