# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801461648 0
# Node ID d86841220451c64a5d5affeb6f522413c5464cce
# Parent  46487d19cdb36fcb03809eed78b1edc23422cc5d
(gud-common-init): Don't die if filename not supplied.
Omit trailing hyphen when no filename follows.

diff -r 46487d19cdb3 -r d86841220451 lisp/gud.el
--- a/lisp/gud.el	Fri May 26 04:00:52 1995 +0000
+++ b/lisp/gud.el	Fri May 26 04:14:08 1995 +0000
@@ -1118,8 +1118,9 @@
 	 (file-word (let ((w (cdr words)))
 		      (while (and w (= ?- (aref (car w) 0)))
 			(setq w (cdr w)))
-		      (prog1 (car w)
-			(setcar w t))))
+		      (and w
+			   (prog1 (car w)
+			     (setcar w t)))))
 	 (file-subst
 	  (and file-word (substitute-in-file-name file-word)))
 	 (args (cdr words))
@@ -1132,8 +1133,8 @@
 		    (if (file-name-directory file-subst)
 			(expand-file-name file-subst)
 		      file-subst)))
-	 (filepart (and file-word (file-name-nondirectory file))))
-    (switch-to-buffer (concat "*gud-" filepart "*"))
+	 (filepart (and file-word (concat "-" (file-name-nondirectory file)))))
+    (switch-to-buffer (concat "*gud" filepart "*"))
     ;; Set default-directory to the file's directory.
     (and file-word
 	 ;; Don't set default-directory if no directory was specified.
@@ -1149,8 +1150,9 @@
     (let ((w args))
       (while (and w (not (eq (car w) t)))
 	(setq w (cdr w)))
-      (setcar w file))
-    (apply 'make-comint (concat "gud-" filepart) program nil
+      (if w
+	  (setcar w file)))
+    (apply 'make-comint (concat "gud" filepart) program nil
 	   (if file-word (funcall massage-args file args) args)))
   ;; Since comint clobbered the mode, we don't set it until now.
   (gud-mode)