diff options
| author | Nick Roberts | 2005-11-27 22:16:02 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-11-27 22:16:02 +0000 |
| commit | 55cd42a4c1898b9d3a1efdf0cd8c36e53eb007c8 (patch) | |
| tree | 2ca06100904c2267888942a72026647d34348127 | |
| parent | 3f6d4fb5ce0ec0d3061503e16025a61e8d6e1d36 (diff) | |
| download | emacs-55cd42a4c1898b9d3a1efdf0cd8c36e53eb007c8.tar.gz emacs-55cd42a4c1898b9d3a1efdf0cd8c36e53eb007c8.zip | |
(gdb-stopped): Detect process when attaching.
(gdb-pre-prompt): Make sure gdb-error is reset.
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 11a1edbbeca..bf4004fabd3 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el | |||
| @@ -1013,6 +1013,7 @@ This filter may simply queue input for a later time." | |||
| 1013 | "An annotation handler for `pre-prompt'. | 1013 | "An annotation handler for `pre-prompt'. |
| 1014 | This terminates the collection of output from a previous command if that | 1014 | This terminates the collection of output from a previous command if that |
| 1015 | happens to be in effect." | 1015 | happens to be in effect." |
| 1016 | (setq gdb-error nil) | ||
| 1016 | (let ((sink gdb-output-sink)) | 1017 | (let ((sink gdb-output-sink)) |
| 1017 | (cond | 1018 | (cond |
| 1018 | ((eq sink 'user) t) | 1019 | ((eq sink 'user) t) |
| @@ -1105,6 +1106,7 @@ directives." | |||
| 1105 | It is just like `gdb-stopping', except that if we already set the output | 1106 | It is just like `gdb-stopping', except that if we already set the output |
| 1106 | sink to `user' in `gdb-stopping', that is fine." | 1107 | sink to `user' in `gdb-stopping', that is fine." |
| 1107 | (setq gud-running nil) | 1108 | (setq gud-running nil) |
| 1109 | (setq gdb-active-process t) | ||
| 1108 | (let ((sink gdb-output-sink)) | 1110 | (let ((sink gdb-output-sink)) |
| 1109 | (cond | 1111 | (cond |
| 1110 | ((eq sink 'inferior) | 1112 | ((eq sink 'inferior) |