From c27c10423eb9a791af5ee86b2ab0ff68ee077085 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 26 May 1995 04:14:08 +0000 Subject: [PATCH] (gud-common-init): Don't die if filename not supplied. Omit trailing hyphen when no filename follows. --- lisp/gud.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/gud.el b/lisp/gud.el index 859c0e0bd40..75f56b90d45 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1118,8 +1118,9 @@ comint mode, which see." (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 @@ comint mode, which see." (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 @@ comint mode, which see." (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) -- 2.39.2