diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-01-18 16:42:19 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-01-18 16:42:19 -0500 |
| commit | 0f558e3be96fb30cb73f682f533755c9a327f023 (patch) | |
| tree | 5c2c0ffd201d1def1c0ef3816f29eb22cb56e9d9 /lisp | |
| parent | ea1e5c97e3cd3360cbf177ec8809414269b5c965 (diff) | |
| download | emacs-0f558e3be96fb30cb73f682f533755c9a327f023.tar.gz emacs-0f558e3be96fb30cb73f682f533755c9a327f023.tar.bz2 emacs-0f558e3be96fb30cb73f682f533755c9a327f023.zip | |
VC: Fix tests for SCCS and Mtn
* test/lisp/vc/vc-tests.el: Prefer closures to `(lambda ...).
(vc-test-mtn05-rename-file, vc-test-mtn06-version-diff): Skip.
* lisp/vc/vc.el (vc-responsible-backend): Fix vc-test--register on SCCS.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc/vc.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index ef3354701c2..54457a21433 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1004,13 +1004,14 @@ responsible for the given file." ;; ;; First try: find a responsible backend. If this is for registration, ;; it must be a backend under which FILE is not yet registered. - (let ((dirs (delq nil - (mapcar - (lambda (backend) - (when-let ((dir (vc-call-backend - backend 'responsible-p file))) - (cons backend dir))) - vc-handled-backends)))) + (let* ((file (expand-file-name file)) + (dirs (delq nil + (mapcar + (lambda (backend) + (when-let ((dir (vc-call-backend + backend 'responsible-p file))) + (cons backend dir))) + vc-handled-backends)))) ;; Just a single response (or none); use it. (if (< (length dirs) 2) (caar dirs) |