diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 12:50:34 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 12:50:34 +0100 |
| commit | 4cc6854cd4b0857e223ed6bc1b1b1a051dd83480 (patch) | |
| tree | 4809d5c25c6be4ebfb78099b30d26f564bf1e7b5 /test/lisp/vc/vc-tests.el | |
| parent | a1b487eac0ec10059eb2b8c5e7efc9eec1342148 (diff) | |
| download | emacs-4cc6854cd4b0857e223ed6bc1b1b1a051dd83480.tar.gz | |
Silence some warnings in tests
* test/lisp/emacs-lisp/package-tests.el
(package-test-suffix-matches): Evaluate lambda.
(package-test-list-filter-marked):
* test/lisp/vc/vc-tests.el
(vc-test--run-maybe-unsupported-function):
* test/src/undo-tests.el (undo-test-skip-invalidated-markers):
Silence "unused local variable" warnings.
* test/lisp/imenu-tests.el (imenu-simple-scan-deftest): Fix
docstring. Don't shadow global major-mode.
Diffstat (limited to 'test/lisp/vc/vc-tests.el')
| -rw-r--r-- | test/lisp/vc/vc-tests.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el index ff85e2f904e..8e5cc95ec94 100644 --- a/test/lisp/vc/vc-tests.el +++ b/test/lisp/vc/vc-tests.el @@ -224,11 +224,10 @@ For backends which don't support it, `vc-not-supported' is signaled." (defmacro vc-test--run-maybe-unsupported-function (func &rest args) "Run FUNC with ARGS as arguments. Catch the `vc-not-supported' error." - `(let (err) - (condition-case err - (funcall ,func ,@args) - (vc-not-supported 'vc-not-supported) - (t (signal (car err) (cdr err)))))) + `(condition-case err + (funcall ,func ,@args) + (vc-not-supported 'vc-not-supported) + (t (signal (car err) (cdr err))))) (defun vc-test--register (backend) "Register and unregister a file. |