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

part of which is a constant.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f83deaa51cc09fee16d2168def62c816aa3d5e5a..f1bbcf4f59a78531be0de4d376efdae441997073 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 9e9650931dfb79d389c7a255feca6e5c89ef1505..4b2b621ee12a4ea6ff585cb4af0e2cf4792e6cc6 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))