Mercurial > emacs
changeset 11930:d86841220451
(gud-common-init): Don't die if filename not supplied.
Omit trailing hyphen when no filename follows.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 26 May 1995 04:14:08 +0000 |
| parents | 46487d19cdb3 |
| children | 3a2442baa290 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)