Mercurial > emacs
changeset 16362:0a969fac6f65
(perldb): Supply visited file name, or -e 0, as default args.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 Sep 1996 20:37:44 +0000 |
| parents | 032601b9959b |
| children | 4097c59143f8 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Sat Sep 28 04:34:34 1996 +0000 +++ b/lisp/gud.el Sat Sep 28 20:37:44 1996 +0000 @@ -1007,7 +1007,11 @@ (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))))