Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 69585:5df134d9ab7f
(gdb-stopped): Even when there is no source
annotation ensure gud-overlay-arrow-position is redisplayed.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 19 Mar 2006 23:15:40 +0000 |
| parents | c32efda6ab27 |
| children | eba3995e301f |
comparison
equal
deleted
inserted
replaced
| 69584:e8f1504847cb | 69585:5df134d9ab7f |
|---|---|
| 1316 (defun gdb-stopped (ignored) | 1316 (defun gdb-stopped (ignored) |
| 1317 "An annotation handler for `stopped'. | 1317 "An annotation handler for `stopped'. |
| 1318 It is just like `gdb-stopping', except that if we already set the output | 1318 It is just like `gdb-stopping', except that if we already set the output |
| 1319 sink to `user' in `gdb-stopping', that is fine." | 1319 sink to `user' in `gdb-stopping', that is fine." |
| 1320 (setq gud-running nil) | 1320 (setq gud-running nil) |
| 1321 (unless (or gud-overlay-arrow-position gud-last-frame) | |
| 1322 (gud-display-line (car gud-last-last-frame) (cdr gud-last-last-frame))) | |
| 1321 (unless (member gdb-inferior-status '("exited" "signal")) | 1323 (unless (member gdb-inferior-status '("exited" "signal")) |
| 1322 (setq gdb-inferior-status "stopped") | 1324 (setq gdb-inferior-status "stopped") |
| 1323 (gdb-force-mode-line-update gdb-inferior-status)) | 1325 (gdb-force-mode-line-update gdb-inferior-status)) |
| 1324 (let ((sink gdb-output-sink)) | 1326 (let ((sink gdb-output-sink)) |
| 1325 (cond | 1327 (cond |