Mercurial > emacs
changeset 35599:a3f6dfb571a7
(gud-perldb-massage-args): Avoid nreverse'ing a list
part of which is a constant.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 26 Jan 2001 11:27:21 +0000 |
| parents | c332de00af36 |
| children | 1e31f3cb4c59 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Fri Jan 26 11:23:52 2001 +0000 +++ b/lisp/gud.el Fri Jan 26 11:27:21 2001 +0000 @@ -1182,7 +1182,7 @@ ;; "-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))