(gud-perldb-massage-args): Avoid nreverse'ing a list

part of which is a constant.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f83deaa..f1bbcf4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-26  Gerd Moellmann  <gerd@gnu.org>
+
+       * gud.el (gud-perldb-massage-args): Avoid nreverse'ing a list
+       part of which is a constant.
+
 2001-01-26  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * loadup.el (Top-level) [ms-dos]: Don't load international/ccl

diff --git a/lisp/gud.el b/lisp/gud.el
index 9e96509..4b2b621 100644 (file)
--- 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))