diff options
Diffstat (limited to 'test/src/comp-resources/comp-test-45603.el')
| -rw-r--r-- | test/src/comp-resources/comp-test-45603.el | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/test/src/comp-resources/comp-test-45603.el b/test/src/comp-resources/comp-test-45603.el deleted file mode 100644 index 65147ee0156..00000000000 --- a/test/src/comp-resources/comp-test-45603.el +++ /dev/null | |||
| @@ -1,29 +0,0 @@ | |||
| 1 | ;;; -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;; Reduced from ivy.el. | ||
| 4 | |||
| 5 | (defvar comp-test-45603-last) | ||
| 6 | (defvar comp-test-45603-mark-prefix) | ||
| 7 | (defvar comp-test-45603-directory) | ||
| 8 | (defvar comp-test-45603-marked-candidates) | ||
| 9 | |||
| 10 | (defun comp-test-45603--call-marked (_action) | ||
| 11 | (let* ((prefix-len (length comp-test-45603-mark-prefix)) | ||
| 12 | (marked-candidates | ||
| 13 | (mapcar | ||
| 14 | (lambda (s) | ||
| 15 | (let ((cand (substring s prefix-len))) | ||
| 16 | (if comp-test-45603-directory | ||
| 17 | (expand-file-name cand comp-test-45603-directory) | ||
| 18 | cand))) | ||
| 19 | comp-test-45603-marked-candidates)) | ||
| 20 | (_multi-action (comp-test-45603--get-multi-action comp-test-45603-last))) | ||
| 21 | marked-candidates)) | ||
| 22 | |||
| 23 | (defalias 'comp-test-45603--file-local-name | ||
| 24 | (if (fboundp 'file-local-name) | ||
| 25 | #'file-local-name | ||
| 26 | (lambda (file) | ||
| 27 | (or (file-remote-p file 'localname) file)))) | ||
| 28 | |||
| 29 | (provide 'comp-test-45603) | ||