Mercurial > emacs
changeset 48639:00993d9b9cb7
(gdba, gdb-starting, gdb-stopped, gdb-quit): Update gdb-running -> gud-running.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 03 Dec 2002 21:11:15 +0000 |
| parents | fff05c8f251d |
| children | 7bc8b0b65a02 |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Tue Dec 03 21:07:39 2002 +0000 +++ b/lisp/gdb-ui.el Tue Dec 03 21:11:15 2002 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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))