nconc -> append
authorueno <ueno>
Sat, 24 Mar 2007 08:55:50 +0000 (08:55 +0000)
committerueno <ueno>
Sat, 24 Mar 2007 08:55:50 +0000 (08:55 +0000)
epg.el

diff --git a/epg.el b/epg.el
index 9e2a209..356ad57 100644 (file)
--- 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