Mercurial > emacs
changeset 55483:bb2dcb7fd983
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-296
Allow restarting an existing debugger session that's exited
2004-05-10 Miles Bader <miles@gnu.org>
* lisp/progmodes/gud.el (gud-common-init): Only consider an existing
buffer an error if the debugger process is actually running.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 10 May 2004 08:40:27 +0000 |
| parents | 953e2486f30f |
| children | 88b7471d7c2b |
| files | lisp/ChangeLog lisp/progmodes/gud.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 10 04:15:14 2004 +0000 +++ b/lisp/ChangeLog Mon May 10 08:40:27 2004 +0000 @@ -1,3 +1,8 @@ +2004-05-10 Miles Bader <miles@gnu.org> + + * lisp/progmodes/gud.el (gud-common-init): Only consider an existing + buffer an error if the debugger process is actually running. + 2004-05-10 Juanma Barranquero <lektu@terra.es> * subr.el (remove-overlays, read-passwd): Fix docstring.
--- a/lisp/progmodes/gud.el Mon May 10 04:15:14 2004 +0000 +++ b/lisp/progmodes/gud.el Mon May 10 08:40:27 2004 +0000 @@ -4,7 +4,7 @@ ;; Maintainer: FSF ;; Keywords: unix, tools -;; Copyright (C) 1992,93,94,95,96,1998,2000,02,2003 Free Software Foundation, Inc. +;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -2387,7 +2387,8 @@ (filepart (and file-word (concat "-" (file-name-nondirectory file)))) (existing-buffer (get-buffer (concat "*gud" filepart "*")))) (pop-to-buffer (concat "*gud" filepart "*")) - (if existing-buffer (error "This program is already running under gdb")) + (when (and existing-buffer (get-buffer-process existing-buffer)) + (error "This program is already running under gdb")) ;; Set the dir, in case the buffer already existed with a different dir. (setq default-directory dir) ;; Set default-directory to the file's directory.