emacs-27 65af18d 3/6: Rename xref-collect-references and xref-collect-matches

[Dmitry Gutov]

branch: emacs-27
commit 65af18d86eed140100c98c1bf3076f805f2bcc06
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Rename xref-collect-references and xref-collect-matches
    
    * lisp/progmodes/xref.el (xref-references-in-directory): Rename
    from xref-collect-references.  Update the sole caller.
    (xref-matches-in-directory): Rename from xref-collect-matches.
    Update all callers (all of them are in the /tests/ dir).
    
    * test/lisp/progmodes/xref-tests.el (xref-tests-data-dir):
    Don't use the EMACS_TEST_DIRECTORY env var. It doesn't work when
    running interactively.
---
 lisp/progmodes/xref.el            | 16 +++++++++++++---
 test/lisp/progmodes/xref-tests.el | 27 ++++++++++++++-------------
 2 files changed, 27 insertions(+), 16 deletions(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index a9d4125..9f010eb 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -261,7 +261,7 @@ find a search tool; by default, this uses \"find | grep\" 
in the
 `project-current' roots."
   (cl-mapcan
    (lambda (dir)
-     (xref-collect-references identifier dir))
+     (xref-references-in-directory identifier dir))
    (let ((pr (project-current t)))
      (append
       (project-roots pr)
@@ -1129,7 +1129,7 @@ and just use etags."
 (declare-function grep-expand-template "grep")
 (defvar ede-minor-mode) ;; ede.el
 
-(defun xref-collect-references (symbol dir)
+(defun xref-references-in-directory (symbol dir)
   "Find all references to SYMBOL in directory DIR.
 Return a list of xref values.
 
@@ -1160,8 +1160,13 @@ and when."
     (xref--convert-hits (semantic-symref-perform-search inst)
                         (format "\\_<%s\\_>" (regexp-quote symbol)))))
 
+(define-obsolete-function-alias
+  'xref-collect-references
+  #'xref-references-in-directory
+  "27.1")
+
 ;;;###autoload
-(defun xref-collect-matches (regexp files dir ignores)
+(defun xref-matches-in-directory (regexp files dir ignores)
   "Find all matches for REGEXP in directory DIR.
 Return a list of xref values.
 Only files matching some of FILES and none of IGNORES are searched.
@@ -1207,6 +1212,11 @@ IGNORES is a list of glob patterns for files to ignore."
               hits)))
     (xref--convert-hits (nreverse hits) regexp)))
 
+(define-obsolete-function-alias
+  'xref-collect-matches
+  #'xref-matches-in-directory
+  "27.1")
+
 (defun xref--rgrep-command (regexp files dir ignores)
   (require 'find-dired)      ; for `find-name-arg'
   (defvar grep-find-template)
diff --git a/test/lisp/progmodes/xref-tests.el 
b/test/lisp/progmodes/xref-tests.el
index 31f4550..3fe3a65 100644
--- a/test/lisp/progmodes/xref-tests.el
+++ b/test/lisp/progmodes/xref-tests.el
@@ -27,14 +27,15 @@
 (require 'cl-lib)
 
 (defvar xref-tests-data-dir
-  (expand-file-name "data/xref/"
-                    (getenv "EMACS_TEST_DIRECTORY")))
+  (expand-file-name "../../../data/xref/"
+                    (or load-file-name
+                        buffer-file-name)))
 
-(ert-deftest xref-collect-matches-finds-none-for-some-regexp ()
-  (should (null (xref-collect-matches "zzz" "*" xref-tests-data-dir nil))))
+(ert-deftest xref-matches-in-directory-finds-none-for-some-regexp ()
+  (should (null (xref-matches-in-directory "zzz" "*" xref-tests-data-dir 
nil))))
 
-(ert-deftest xref-collect-matches-finds-some-for-bar ()
-  (let* ((matches (xref-collect-matches "bar" "*" xref-tests-data-dir nil))
+(ert-deftest xref-matches-in-directory-finds-some-for-bar ()
+  (let* ((matches (xref-matches-in-directory "bar" "*" xref-tests-data-dir 
nil))
          (locs (cl-sort (mapcar #'xref-item-location matches)
                         #'string<
                         :key #'xref-location-group)))
@@ -42,8 +43,8 @@
     (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 0 
locs))))
     (should (string-match-p "file2\\.txt\\'" (xref-location-group (nth 1 
locs))))))
 
-(ert-deftest xref-collect-matches-finds-two-matches-on-the-same-line ()
-  (let* ((matches (xref-collect-matches "foo" "*" xref-tests-data-dir nil))
+(ert-deftest xref-matches-in-directory-finds-two-matches-on-the-same-line ()
+  (let* ((matches (xref-matches-in-directory "foo" "*" xref-tests-data-dir 
nil))
          (locs (mapcar #'xref-item-location matches)))
     (should (= 2 (length matches)))
     (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 0 
locs))))
@@ -53,8 +54,8 @@
     (should (equal 0 (xref-file-location-column (nth 0 locs))))
     (should (equal 4 (xref-file-location-column (nth 1 locs))))))
 
-(ert-deftest xref-collect-matches-finds-an-empty-line-regexp-match ()
-  (let* ((matches (xref-collect-matches "^$" "*" xref-tests-data-dir nil))
+(ert-deftest xref-matches-in-directory-finds-an-empty-line-regexp-match ()
+  (let* ((matches (xref-matches-in-directory "^$" "*" xref-tests-data-dir nil))
          (locs (mapcar #'xref-item-location matches)))
     (should (= 1 (length matches)))
     (should (string-match-p "file2\\.txt\\'" (xref-location-group (nth 0 
locs))))
@@ -62,7 +63,7 @@
     (should (equal 0 (xref-file-location-column (nth 0 locs))))))
 
 (ert-deftest xref--buf-pairs-iterator-groups-markers-by-buffers-1 ()
-  (let* ((xrefs (xref-collect-matches "foo" "*" xref-tests-data-dir nil))
+  (let* ((xrefs (xref-matches-in-directory "foo" "*" xref-tests-data-dir nil))
          (iter (xref--buf-pairs-iterator xrefs))
          (cons (funcall iter :next)))
     (should (null (funcall iter :next)))
@@ -70,7 +71,7 @@
     (should (= 2 (length (cdr cons))))))
 
 (ert-deftest xref--buf-pairs-iterator-groups-markers-by-buffers-2 ()
-  (let* ((xrefs (xref-collect-matches "bar" "*" xref-tests-data-dir nil))
+  (let* ((xrefs (xref-matches-in-directory "bar" "*" xref-tests-data-dir nil))
          (iter (xref--buf-pairs-iterator xrefs))
          (cons1 (funcall iter :next))
          (cons2 (funcall iter :next)))
@@ -80,7 +81,7 @@
     (should (= 1 (length (cdr cons2))))))
 
 (ert-deftest xref--buf-pairs-iterator-cleans-up-markers ()
-  (let* ((xrefs (xref-collect-matches "bar" "*" xref-tests-data-dir nil))
+  (let* ((xrefs (xref-matches-in-directory "bar" "*" xref-tests-data-dir nil))
          (iter (xref--buf-pairs-iterator xrefs))
          (cons1 (funcall iter :next))
          (cons2 (funcall iter :next)))