Mercurial > emacs
changeset 75589:409b8dd974d3
(gdb-speedbar-update): Avoid duplication
when adding gdb-speedbar-update to gdb-input-queue.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 01 Feb 2007 08:42:47 +0000 |
| parents | 1f79f635956f |
| children | a61de5ffbe57 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Thu Feb 01 08:42:00 2007 +0000 +++ b/lisp/progmodes/gdb-ui.el Thu Feb 01 08:42:47 2007 +0000 @@ -114,7 +114,7 @@ (defvar gdb-var-list nil "List of variables in watch window. Each element has the form (VARNUM EXPRESSION NUMCHILD TYPE VALUE STATUS FP) -where STATUS is nil (unchanged), `changed' or `out-of-scope', FP the frame +where STATUS is nil (`unchanged'), `changed' or `out-of-scope', FP the frame address for root variables.") (defvar gdb-main-file nil "Source file from which program execution begins.") (defvar gud-old-arrow nil) @@ -739,7 +739,7 @@ (match-string 2) (match-string 4) (if (match-string 3) (read (match-string 3))) - nil gdb-frame-address))) + nil gdb-frame-address))) (push var gdb-var-list) (unless (string-equal speedbar-initial-expansion-list-name "GUD") @@ -759,7 +759,8 @@ (message-box "No symbol \"%s\" in current context." expr)))) (defun gdb-speedbar-update () - (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) + (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame) + (not (member 'gdb-speedbar-timer gdb-pending-triggers))) ;; Dummy command to update speedbar even when idle. (gdb-enqueue-input (list "server pwd\n" 'gdb-speedbar-timer-fn)) ;; Keep gdb-pending-triggers non-nil till end.