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

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-296

Browse source 
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.
This commit is contained in:
Miles Bader 2004-05-10 08:40:27 +00:00
parent cfe9d13e24
commit f9878c26e8
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

5
lisp/progmodes/gud.el
View file

@ -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.