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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 425c85e18841595bdbba3d855dd45f9377ef6d54..356f35c01a171bf9fabbf6e1f2b153a19bbd8360 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 9cb3ae26c3b591853df3b3c6539f3c23330f34fa..035b5da875ab36e87a250eece93677b14cda7ba4 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -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 @@ comint mode, which see."
         (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.