Mercurial > emacs

diff lisp/progmodes/gud.el @ 55216:1014ad951130

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-common-init): Throw an error if program is already running under gdb.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 28 Apr 2004 18:15:12 +0000
parents d5f4f3846c40
children bb2dcb7fd983
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Wed Apr 28 18:14:32 2004 +0000
+++ b/lisp/progmodes/gud.el	Wed Apr 28 18:15:12 2004 +0000
@@ -2384,8 +2384,10 @@
 		    (if (file-name-directory file-subst)
 			(expand-file-name file-subst)
 		      file-subst)))
-	 (filepart (and file-word (concat "-" (file-name-nondirectory file)))))
+	 (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"))
     ;; 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.