From: Glenn Morris <rgm@gnu.org>
Date: Sun, 5 Sep 2021 01:39:20 +0000 (-0700)
Subject: * test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it.
X-Git-Tag: emacs-28.0.90~1172
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76300b87d472354507a872fa84709df9d5d4a59b;p=emacs.git

* test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it.
---

diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el
index 39a68275a03..16ef5cc2f9c 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)