emacs-diffs
[Top][All Lists]
Advanced

[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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]