[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a4d3897: Replace some uses of cl-mapcan with mapcan

From: Basil L. Contovounesios
Subject: master a4d3897: Replace some uses of cl-mapcan with mapcan
Date: Sun, 21 Jun 2020 09:51:21 -0400 (EDT)

branch: master
commit a4d3897d8f0caa54be1e1d081651ed6640b7f25e
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Replace some uses of cl-mapcan with mapcan
    * lisp/progmodes/project.el (project-files, project-files):
    * lisp/progmodes/xref.el (xref-backend-references)
    * test/lisp/emacs-lisp/package-tests.el
    (package-test-strip-version): Replace cl-mapcan with equivalent
    calls to mapcan.
 lisp/progmodes/project.el             | 4 ++--
 lisp/progmodes/xref.el                | 6 +++---
 test/lisp/emacs-lisp/package-tests.el | 5 ++---
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 74495cf..8f6301c 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -195,7 +195,7 @@ subset of the project root and external roots.
 The default implementation uses `find-program'.  PROJECT is used
 to find the list of ignores for each directory."
-  (cl-mapcan
+  (mapcan
    (lambda (dir)
      (project--files-in-directory dir
                                   (project--dir-ignores project dir)))
@@ -351,7 +351,7 @@ backend implementation of `project-external-roots'.")
    (list (project-root project))))
 (cl-defmethod project-files ((project (head vc)) &optional dirs)
-  (cl-mapcan
+  (mapcan
    (lambda (dir)
      (let (backend)
        (if (and (file-equal-p dir (cdr project))
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 5b5fb4b..3e3a37f 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -264,7 +264,7 @@ be found, return nil.
 The default implementation uses `semantic-symref-tool-alist' to
 find a search tool; by default, this uses \"find | grep\" in the
 `project-current' roots."
-  (cl-mapcan
+  (mapcan
    (lambda (dir)
      (xref-references-in-directory identifier dir))
    (let ((pr (project-current t)))
@@ -1383,8 +1383,8 @@ Such as the current syntax table and the applied syntax 
   (let (xref--last-file-buffer
         (tmp-buffer (generate-new-buffer " *xref-temp*")))
-        (cl-mapcan (lambda (hit) (xref--collect-matches hit regexp tmp-buffer))
-                   hits)
+        (mapcan (lambda (hit) (xref--collect-matches hit regexp tmp-buffer))
+                hits)
       (kill-buffer tmp-buffer))))
 (defun xref--collect-matches (hit regexp tmp-buffer)
diff --git a/test/lisp/emacs-lisp/package-tests.el 
index fecabba..cb06dd4 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -175,9 +175,8 @@
 (defun package-test-suffix-matches (base suffix-list)
   "Return file names matching BASE concatenated with each item in SUFFIX-LIST"
-  (cl-mapcan
-   (lambda (item) (file-expand-wildcards (concat base item)))
-   suffix-list))
+  (mapcan (lambda (item) (file-expand-wildcards (concat base item)))
+          suffix-list))
 (defvar tar-parse-info)
 (declare-function tar-header-name "tar-mode" (cl-x) t) ; defstruct

reply via email to

[Prev in Thread] Current Thread [Next in Thread]