From: ueno <ueno>
Date: Sat, 24 Mar 2007 08:55:50 +0000 (+0000)
Subject: nconc -> append
X-Git-Tag: epg-0_0_11~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=621763839b0561549af819bdfd77799fd23cfdf4;p=elisp%2Fepg.git

nconc -> append
---

diff --git a/epg.el b/epg.el
index 9e2a209..356ad57 100644
--- a/epg.el
+++ b/epg.el
@@ -1677,7 +1677,7 @@ This function is for internal use only."
     (unless (listp name)
       (setq name (list name)))
     (while name
-      (setq args (nconc args (list list-keys-option (car name)))
+      (setq args (append args (list list-keys-option (car name)))
 	    name (cdr name)))
     (with-temp-buffer
       (apply #'call-process