[Emacs-diffs] scratch/gnus-search 353288d 1/2: Don't use nconc

[Eric Abrahamsen]

branch: scratch/gnus-search
commit 353288d9e3f8907f0e154b7fea50909c2f4c2b75
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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.
---
 lisp/gnus/gnus-search.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index a0252d7..4d3056d 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))))