From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 3 Dec 2002 21:11:15 +0000 (+0000)
Subject: (gdba, gdb-starting, gdb-stopped, gdb-quit): Update gdb-running -> gud-running.
X-Git-Tag: ttn-vms-21-2-B4~12185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5016b6f0a29eafef300a25e143092bfee6c95d9;p=emacs.git

(gdba, gdb-starting, gdb-stopped, gdb-quit): Update gdb-running -> gud-running.
---

diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el
index e72b6605d43..28ceda51052 100644
--- a/lisp/gdb-ui.el
+++ b/lisp/gdb-ui.el
@@ -38,6 +38,12 @@
 (defvar gdb-first-time nil)
 (defvar gdb-proc nil "The process associated with gdb.")
 
+;; Dynamically-bound vars in gud.el
+(defvar gud-gdb-complete-string)
+(defvar gud-gdb-complete-break)
+(defvar gud-gdb-complete-list)
+(defvar gud-gdb-complete-in-progress)
+
 ;;;###autoload
 (defun gdba (command-line)
   "Run gdb on program FILE in buffer *gdb-FILE*.
@@ -124,7 +130,7 @@ The following interactive lisp functions help control operation :
   (setq gdb-display-in-progress nil)
   (setq gdb-dive nil)
   (setq gud-last-last-frame nil)
-  (setq gdb-running nil)
+  (setq gud-running nil)
 
   (run-hooks 'gdb-mode-hook)
   (setq gdb-proc (get-buffer-process (current-buffer)))
@@ -754,7 +760,7 @@ subprocess is now the program being debugged, not GDB."
     (cond
      ((eq sink 'user)
       (progn
-	(setq gdb-running t)
+	(setq gud-running t)
 	(set-gdb-instance-output-sink 'inferior)))
      (t (error "Unexpected `starting' annotation")))))
 
@@ -770,7 +776,7 @@ for the subprocess is now GDB, not the program being debugged."
 (defun gdb-stopped (ignored)
   "An annotation handler for `stopped'.  It is just like gdb-stopping, except
 that if we already set the output sink to 'user in gdb-stopping, that is fine."
-  (setq gdb-running nil)
+  (setq gud-running nil)
   (let ((sink (gdb-instance-output-sink)))
     (cond
      ((eq sink 'inferior)
@@ -2170,7 +2176,7 @@ Just the partial-output buffer is left."
 	      (setq left-margin-width 0)
 	      (setq gud-minor-mode nil)
 	      (kill-local-variable 'tool-bar-map)
-	      (setq gdb-running nil)
+	      (setq gud-running nil)
 	      (if (get-buffer-window (current-buffer))
 		  (set-window-margins (get-buffer-window
 				       (current-buffer))