[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 76300b8: * test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff)
From: |
Glenn Morris |
Subject: |
master 76300b8: * test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it. |
Date: |
Sat, 4 Sep 2021 21:39:41 -0400 (EDT) |
branch: master
commit 76300b87d472354507a872fa84709df9d5d4a59b
Author: Glenn Morris <rgm@gnu.org>
Commit: Glenn Morris <rgm@gnu.org>
* test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it.
---
test/lisp/vc/vc-tests.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el
index 39a6827..16ef5cc 100644
--- a/test/lisp/vc/vc-tests.el
+++ b/test/lisp/vc/vc-tests.el
@@ -640,7 +640,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(with-current-buffer buff
(progn
;; Optionally checkout file.
- (when (or (eq backend 'RCS) (eq backend 'CVS))
+ (when (memq backend '(RCS CVS SCCS))
(vc-checkout tmp-name))
;; Checkin file.
@@ -649,7 +649,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(log-edit-done))))
;; Modify file content.
- (when (or (eq backend 'RCS) (eq backend 'CVS))
+ (when (memq backend '(RCS CVS SCCS))
(vc-checkout tmp-name))
(write-region "updatedtext" nil tmp-name nil 'nomessage)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 76300b8: * test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it.,
Glenn Morris <=