From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 26 Jan 2001 11:30:01 +0000 (+0000)
Subject: (gud-perldb-massage-args): Avoid nreverse'ing a list
X-Git-Tag: emacs-pretest-21.0.96~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c636b5f4bfdb5c6925f92920513282a8f77b6b6;p=emacs.git

(gud-perldb-massage-args): Avoid nreverse'ing a list
part of which is a constant.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f83deaa51cc..f1bbcf4f59a 100644
--- 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 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))