From 5dd9db3bbdb22b71459731423b693110756ab28c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 28 Sep 1996 20:37:44 +0000 Subject: [PATCH] (perldb): Supply visited file name, or -e 0, as default args. --- lisp/gud.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gud.el b/lisp/gud.el index 1d5f50b2682..eb0a403dabb 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1007,7 +1007,11 @@ and source-file directory for your debugger." (list (read-from-minibuffer "Run perldb (like this): " (if (consp gud-perldb-history) (car gud-perldb-history) - (concat perldb-command-name " ")) + (concat perldb-command-name + " " + (or (buffer-file-name) + "-e 0")) + " ") nil nil '(gud-perldb-history . 1)))) -- 2.39.5