Mercurial > emacs
changeset 15755:95be49f33453
(perldb-command-name): New variable.
(perldb): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Jul 1996 19:06:26 +0000 |
| parents | 05c14d5cce5c |
| children | 30e9db641e6f |
| files | lisp/gud.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Mon Jul 22 16:33:20 1996 +0000 +++ b/lisp/gud.el Mon Jul 22 19:06:26 1996 +0000 @@ -989,6 +989,9 @@ (gud-make-debug-menu) buf))) +(defvar perldb-command-name "perl" + "File name for executing Perl.") + ;;;###autoload (defun perldb (command-line) "Run perldb on program FILE in buffer *gud-FILE*. @@ -998,7 +1001,7 @@ (list (read-from-minibuffer "Run perldb (like this): " (if (consp gud-perldb-history) (car gud-perldb-history) - "perl ") + (concat perldb-command-name " ")) nil nil '(gud-perldb-history . 1))))