procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix last change.

Browse source 
* lisp/progmodes/gdb-mi.el (gdb-inferior-io-sentinel): Don't do
anything if gdb process is killed.
This commit is contained in:
Chong Yidong 2012-04-20 15:13:25 +08:00
parent f30d612a7a
commit 8912063b46
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/gdb-mi.el
View file

@ -1536,12 +1536,16 @@ DOC is an optional documentation string."
(defun gdb-inferior-io-sentinel (proc str)
(when (eq (process-status proc) 'failed)
;; When the debugged process exits, Emacs gets an EIO error on
;; read from the pty, and stops listening to it. Remove the pty,
;; make a new one, and pass it to gdb.
(let ((buffer (process-buffer proc)))
;; `comint-exec' deletes the original process as a side effect.
(comint-exec buffer "gdb-inferior" nil nil nil)
(gdb-inferior-io--init-proc (get-buffer-process buffer)))))
;; read from the pty, and stops listening to it. If the gdb
;; process is still running, remove the pty, make a new one, and
;; pass it to gdb.
(let ((gdb-proc (get-buffer-process gud-comint-buffer))
(io-buffer (process-buffer proc)))
(when (and gdb-proc (process-live-p gdb-proc)
(buffer-live-p io-buffer))
;; `comint-exec' deletes the original process as a side effect.
(comint-exec io-buffer "gdb-inferior" nil nil nil)
(gdb-inferior-io--init-proc (get-buffer-process io-buffer))))))
(defconst gdb-frame-parameters
'((height . 14) (width . 80)