From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 13 Sep 2021 16:38:59 +0000 (+0200)
Subject: Remove duplication of `find` file pattern arguments
X-Git-Tag: emacs-28.0.90~996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cf6d03d04ecadfd74fa4998fde14dcc79fd6daf;p=emacs.git

Remove duplication of `find` file pattern arguments

* lisp/cedet/semantic/symref/grep.el
(semantic-symref-derive-find-filepatterns): Avoid including the same
pattern twice.
---

diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el
index 180d779a780..cee54d78185 100644
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -87,7 +87,7 @@ Optional argument MODE specifies the `major-mode' to test."
         (if (null (cdr pat))
             args
           `("(" ,@args
-            ,@(mapcan (lambda (s) `("-o" "-name" ,s)) pat)
+            ,@(mapcan (lambda (s) `("-o" "-name" ,s)) (cdr pat))
             ")"))))))
 
 (defvar semantic-symref-grep-flags)