diff options
Diffstat (limited to 'test/lisp/vc')
| -rw-r--r-- | test/lisp/vc/vc-git-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/vc/vc-tests/vc-tests.el | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/test/lisp/vc/vc-git-tests.el b/test/lisp/vc/vc-git-tests.el index e93ee72210d..96fa3d65c05 100644 --- a/test/lisp/vc/vc-git-tests.el +++ b/test/lisp/vc/vc-git-tests.el | |||
| @@ -111,7 +111,7 @@ If the exit status is non-zero, log the command output and re-throw." | |||
| 111 | (apply 'vc-git-command t 0 nil args) | 111 | (apply 'vc-git-command t 0 nil args) |
| 112 | (t (message "Error running Git: %s" err) | 112 | (t (message "Error running Git: %s" err) |
| 113 | (message "(buffer-string:\n%s\n)" (buffer-string)) | 113 | (message "(buffer-string:\n%s\n)" (buffer-string)) |
| 114 | (signal (car err) (cdr err)))) | 114 | (signal err))) |
| 115 | (buffer-string))) | 115 | (buffer-string))) |
| 116 | 116 | ||
| 117 | (defun vc-git-test--start-branch () | 117 | (defun vc-git-test--start-branch () |
diff --git a/test/lisp/vc/vc-tests/vc-tests.el b/test/lisp/vc/vc-tests/vc-tests.el index ca79a340a46..737ee09415e 100644 --- a/test/lisp/vc/vc-tests/vc-tests.el +++ b/test/lisp/vc/vc-tests/vc-tests.el | |||
| @@ -238,8 +238,7 @@ For backends which don't support it, `vc-not-supported' is signaled." | |||
| 238 | Catch the `vc-not-supported' error." | 238 | Catch the `vc-not-supported' error." |
| 239 | `(condition-case err | 239 | `(condition-case err |
| 240 | (funcall ,func ,@args) | 240 | (funcall ,func ,@args) |
| 241 | (vc-not-supported 'vc-not-supported) | 241 | (vc-not-supported 'vc-not-supported))) |
| 242 | (t (signal (car err) (cdr err))))) | ||
| 243 | 242 | ||
| 244 | (defun vc-test--register (backend) | 243 | (defun vc-test--register (backend) |
| 245 | "Register and unregister a file. | 244 | "Register and unregister a file. |