aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/vc
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/vc')
-rw-r--r--test/lisp/vc/vc-git-tests.el2
-rw-r--r--test/lisp/vc/vc-tests/vc-tests.el3
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."
238Catch the `vc-not-supported' error." 238Catch 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.