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.