From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 1 Jun 2017 13:25:02 +0000 (+0800)
Subject: Don't use nconc
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=353288d9e3f8907f0e154b7fea50909c2f4c2b75;p=emacs.git

Don't use nconc

* lisp/gnus/gnus-search.el (gnus-search-indexed-search-command): Use
  append instead of nconc, nconc modifies destructively and makes a
  mess.
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index a0252d71560..4d3056dff51 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1601,7 +1601,7 @@ fudges a relevancy score of 100."
 						  query &optional _groups)
   (let ((max (alist-get 'limit query)))
     (with-slots (switches index-dir) engine
-      (nconc
+      (append
        (list "-q"			; don't be verbose
 	     "-a"			; show all matches
 	     "-s") 			; use short format
@@ -1871,7 +1871,7 @@ Assume \"size\" key is equal to \"larger\"."
 						  (qstring string)
 						  query &optional _groups)
   (with-slots (switches config-file) engine
-    (nconc `("--rcfile" ,config-file "-r")
+    (append `("--rcfile" ,config-file "-r")
 	   switches
 	   (when (alist-get 'thread query) (list "-t"))
 	   (list qstring))))