diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-21 03:38:37 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-21 03:38:37 +0200 |
| commit | 759ec257699d734de2ba733bcc204745500b9b23 (patch) | |
| tree | 01d767365c435d3ccf4642a43fee5a9e947f0057 /test/lisp/progmodes/xref-tests.el | |
| parent | c3ad28c29098e3dd7c14dc2a8399d08e06d77f51 (diff) | |
| download | emacs-759ec257699d734de2ba733bcc204745500b9b23.tar.gz emacs-759ec257699d734de2ba733bcc204745500b9b23.tar.bz2 emacs-759ec257699d734de2ba733bcc204745500b9b23.zip | |
Generic-ify xref-location-column
* lisp/progmodes/xref.el (xref-location-column):
Create a generic from xref-file-location-column, to use in the
common rendering code (bug#36967).
(xref--insert-xrefs): Update accordingly.
* test/lisp/progmodes/xref-tests.el
(xref-matches-in-directory-finds-two-matches-on-the-same-line)
(xref-matches-in-directory-finds-an-empty-line-regexp-match):
Ditto.
Diffstat (limited to 'test/lisp/progmodes/xref-tests.el')
| -rw-r--r-- | test/lisp/progmodes/xref-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/progmodes/xref-tests.el b/test/lisp/progmodes/xref-tests.el index 038f9d0e304..e220d09dada 100644 --- a/test/lisp/progmodes/xref-tests.el +++ b/test/lisp/progmodes/xref-tests.el @@ -52,8 +52,8 @@ (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 1 locs)))) (should (equal 1 (xref-location-line (nth 0 locs)))) (should (equal 1 (xref-location-line (nth 1 locs)))) - (should (equal 0 (xref-file-location-column (nth 0 locs)))) - (should (equal 4 (xref-file-location-column (nth 1 locs)))))) + (should (equal 0 (xref-location-column (nth 0 locs)))) + (should (equal 4 (xref-location-column (nth 1 locs)))))) (ert-deftest xref-matches-in-directory-finds-an-empty-line-regexp-match () (let* ((matches (xref-matches-in-directory "^$" "*" xref-tests-data-dir nil)) @@ -61,7 +61,7 @@ (should (= 1 (length matches))) (should (string-match-p "file2\\.txt\\'" (xref-location-group (nth 0 locs)))) (should (equal 1 (xref-location-line (nth 0 locs)))) - (should (equal 0 (xref-file-location-column (nth 0 locs)))))) + (should (equal 0 (xref-location-column (nth 0 locs)))))) (ert-deftest xref--buf-pairs-iterator-groups-markers-by-buffers-1 () (let* ((xrefs (xref-matches-in-directory "foo" "*" xref-tests-data-dir nil)) |