andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(perldb-command-name): New variable.

Browse source 
(perldb): Use it.
This commit is contained in:
Richard M. Stallman 1996-07-22 19:06:26 +00:00
parent 0ccb277a5e
commit 9ab5d005aa
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gud.el
View file

@ -989,6 +989,9 @@ directories if your program contains sources from more than one directory."
(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 @@ and source-file directory for your debugger."
(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))))