mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(gud-perldb-massage-args): Massage correctly in the

Browse Source 
presence of perl switches other than "-e".
This commit is contained in:
Gerd Moellmann 1999-11-01 21:10:27 +00:00
parent 6c1aa34da0
commit f2eb772dca
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/gud.el
View File

@ -1185,13 +1185,26 @@ directories if your program contains sources from more than one directory."
(defvar gud-perldb-history nil)
(defun gud-perldb-massage-args (file args)
(cond ((equal (car args) "-e")
(cons "-d"
(cons (car args)
(cons (nth 1 args)
(cons "--" (cons "-emacs" (cdr (cdr args))))))))
(t
(cons "-d" (cons (car args) (cons "-emacs" (cdr args)))))))
(let (new-args)
(while (and args
(string-match "^-[^-]" (car args)))
(setq new-args (cons (car args) new-args))
(setq args (cdr args)))
(if args
(progn
(setq new-args (cons (car args) new-args))
(setq args (cdr args)))
(setq new-args (cons "--" new-args)))
(setq new-args (cons "-emacs" new-args))
(while args
(setq new-args (cons (car args) new-args))
(setq args (cdr args)))
(cons "-d" (nreverse new-args))))
;; There's no guarantee that Emacs will hand the filter the entire
;; marker at once; it could be broken up across several strings. We