diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-09-28 20:37:44 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-09-28 20:37:44 +0000 |
commit | 415f79dd5df19811bd446773f525bf08307cdb02 (patch) | |
tree | 0891b57e7a85193628faf601e53de169f5de3fe6 /lisp/gud.el | |
parent | 303d7134091295f34f3c6263effbf29ec61c5d66 (diff) | |
download | emacs-415f79dd5df19811bd446773f525bf08307cdb02.tar.gz |
(perldb): Supply visited file name, or -e 0, as default args.
Diffstat (limited to 'lisp/gud.el')
-rw-r--r-- | lisp/gud.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)))) |