diff options
| author | Nick Roberts | 2006-06-20 22:35:19 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-06-20 22:35:19 +0000 |
| commit | 3cfc0f435de7ecf1235353dfe25fd9b035c093a9 (patch) | |
| tree | 1cb8c3a2d1a2c6962975ba59a069bba0028cefbb | |
| parent | 210e35f750f397709000acdbfb4ed49516e53d01 (diff) | |
| download | emacs-3cfc0f435de7ecf1235353dfe25fd9b035c093a9.tar.gz emacs-3cfc0f435de7ecf1235353dfe25fd9b035c093a9.zip | |
(gdb-exited): Ensure overlay arrow gets killed.
(gdb-frame-handler): Generalise frame regexp for templates.
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index f3144cbb84a..684102015cc 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el | |||
| @@ -1325,6 +1325,7 @@ directives." | |||
| 1325 | (setq gdb-active-process nil) | 1325 | (setq gdb-active-process nil) |
| 1326 | (setq gud-overlay-arrow-position nil) | 1326 | (setq gud-overlay-arrow-position nil) |
| 1327 | (setq gdb-overlay-arrow-position nil) | 1327 | (setq gdb-overlay-arrow-position nil) |
| 1328 | (setq gud-old-arrow nil) | ||
| 1328 | (setq gdb-inferior-status "exited") | 1329 | (setq gdb-inferior-status "exited") |
| 1329 | (gdb-force-mode-line-update gdb-inferior-status) | 1330 | (gdb-force-mode-line-update gdb-inferior-status) |
| 1330 | (gdb-stopping ignored)) | 1331 | (gdb-stopping ignored)) |
| @@ -3217,8 +3218,8 @@ BUFFER nil or omitted means use the current buffer." | |||
| 3217 | (setq gdb-frame-number (match-string 1)) | 3218 | (setq gdb-frame-number (match-string 1)) |
| 3218 | (setq gdb-frame-address (match-string 2))) | 3219 | (setq gdb-frame-address (match-string 2))) |
| 3219 | (goto-char (point-min)) | 3220 | (goto-char (point-min)) |
| 3220 | (when (re-search-forward ".*=\\s-+0x0*\\(\\S-*\\)\\s-+in\\s-+\\(\\S-+?\\)\ | 3221 | (when (re-search-forward ".*=\\s-+0x0*\\(\\S-*\\)\\s-+in\\s-+\\(.*?\\)\ |
| 3221 | \\(?: (\\(\\S-+?\\):[0-9]+?)\\)*;? " | 3222 | \\(?: (\\(\\S-+?\\):[0-9]+?)\\)*; " |
| 3222 | nil t) | 3223 | nil t) |
| 3223 | (setq gdb-selected-frame (match-string 2)) | 3224 | (setq gdb-selected-frame (match-string 2)) |
| 3224 | (if (gdb-get-buffer 'gdb-locals-buffer) | 3225 | (if (gdb-get-buffer 'gdb-locals-buffer) |