aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/gdb-ui.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index c4cd96010a6..b18353d7024 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -114,7 +114,7 @@ Set to \"main\" at start if gdb-show-main is t.")
114(defvar gdb-var-list nil 114(defvar gdb-var-list nil
115 "List of variables in watch window. 115 "List of variables in watch window.
116Each element has the form (VARNUM EXPRESSION NUMCHILD TYPE VALUE STATUS FP) 116Each element has the form (VARNUM EXPRESSION NUMCHILD TYPE VALUE STATUS FP)
117where STATUS is nil (unchanged), `changed' or `out-of-scope', FP the frame 117where STATUS is nil (`unchanged'), `changed' or `out-of-scope', FP the frame
118address for root variables.") 118address for root variables.")
119(defvar gdb-main-file nil "Source file from which program execution begins.") 119(defvar gdb-main-file nil "Source file from which program execution begins.")
120(defvar gud-old-arrow nil) 120(defvar gud-old-arrow nil)
@@ -739,7 +739,7 @@ With arg, enter name of variable to be watched in the minibuffer."
739 (match-string 2) 739 (match-string 2)
740 (match-string 4) 740 (match-string 4)
741 (if (match-string 3) (read (match-string 3))) 741 (if (match-string 3) (read (match-string 3)))
742 nil gdb-frame-address))) 742 nil gdb-frame-address)))
743 (push var gdb-var-list) 743 (push var gdb-var-list)
744 (unless (string-equal 744 (unless (string-equal
745 speedbar-initial-expansion-list-name "GUD") 745 speedbar-initial-expansion-list-name "GUD")
@@ -759,7 +759,8 @@ With arg, enter name of variable to be watched in the minibuffer."
759 (message-box "No symbol \"%s\" in current context." expr)))) 759 (message-box "No symbol \"%s\" in current context." expr))))
760 760
761(defun gdb-speedbar-update () 761(defun gdb-speedbar-update ()
762 (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) 762 (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)
763 (not (member 'gdb-speedbar-timer gdb-pending-triggers)))
763 ;; Dummy command to update speedbar even when idle. 764 ;; Dummy command to update speedbar even when idle.
764 (gdb-enqueue-input (list "server pwd\n" 'gdb-speedbar-timer-fn)) 765 (gdb-enqueue-input (list "server pwd\n" 'gdb-speedbar-timer-fn))
765 ;; Keep gdb-pending-triggers non-nil till end. 766 ;; Keep gdb-pending-triggers non-nil till end.