diff options
| author | Nick Roberts | 2009-12-14 09:44:43 +0000 |
|---|---|---|
| committer | Nick Roberts | 2009-12-14 09:44:43 +0000 |
| commit | e960eea6858c14dc39134438ef72040e53d94b97 (patch) | |
| tree | 3c0885429ca28a9c8dbc367a8c8cd9a909966779 | |
| parent | 6c2b67ad7b6f99245d318094a0450a284b4f0219 (diff) | |
| download | emacs-e960eea6858c14dc39134438ef72040e53d94b97.tar.gz emacs-e960eea6858c14dc39134438ef72040e53d94b97.zip | |
(gdb-frame-handler): Only set gud-lat-frame
when there are values for both file and line. (Bug#5060)
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 703f4ac6162..0f9532dcb3e 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -3754,9 +3754,8 @@ overlay arrow in source buffer." | |||
| 3754 | (setq gdb-frame-number (bindat-get-field frame 'level)) | 3754 | (setq gdb-frame-number (bindat-get-field frame 'level)) |
| 3755 | (setq gdb-frame-address (bindat-get-field frame 'addr)) | 3755 | (setq gdb-frame-address (bindat-get-field frame 'addr)) |
| 3756 | (let ((line (bindat-get-field frame 'line))) | 3756 | (let ((line (bindat-get-field frame 'line))) |
| 3757 | (setq gdb-selected-line (or (and line (string-to-number line)) | 3757 | (setq gdb-selected-line (and line (string-to-number line))) |
| 3758 | nil)) ; don't fail if line is nil | 3758 | (when (and gdb-selected-file gdb-selected-line) |
| 3759 | (when line ; obey the current file only if we have line info | ||
| 3760 | (setq gud-last-frame (cons gdb-selected-file gdb-selected-line)) | 3759 | (setq gud-last-frame (cons gdb-selected-file gdb-selected-line)) |
| 3761 | (gud-display-frame))) | 3760 | (gud-display-frame))) |
| 3762 | (if gud-overlay-arrow-position | 3761 | (if gud-overlay-arrow-position |