[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/gnus-search 353288d 1/2: Don't use nconc
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] scratch/gnus-search 353288d 1/2: Don't use nconc |
Date: |
Fri, 2 Jun 2017 10:12:55 -0400 (EDT) |
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))))