diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-01-26 11:30:01 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-01-26 11:30:01 +0000 |
| commit | 1c636b5f4bfdb5c6925f92920513282a8f77b6b6 (patch) | |
| tree | 18a47175b52cc9912bfda31476c600fa03650335 /lisp/gud.el | |
| parent | 8af1308e286e2133d2194ade659d157d7572163f (diff) | |
| download | emacs-1c636b5f4bfdb5c6925f92920513282a8f77b6b6.tar.gz emacs-1c636b5f4bfdb5c6925f92920513282a8f77b6b6.tar.bz2 emacs-1c636b5f4bfdb5c6925f92920513282a8f77b6b6.zip | |
(gud-perldb-massage-args): Avoid nreverse'ing a list
part of which is a constant.
Diffstat (limited to 'lisp/gud.el')
| -rw-r--r-- | lisp/gud.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 9e9650931df..4b2b621ee12 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1182,7 +1182,7 @@ directories if your program contains sources from more than one directory." ;; "-d" in inserted as the first switch, and "-emacs" is inserted where ;; it will be $ARGV[0] (see perl5db.pl). (defun gud-perldb-massage-args (file args) - (let* ((new-args '("-d")) + (let* ((new-args (list "-d")) (seen-e nil) (shift (lambda () (setq new-args (cons (car args) new-args)) |