commit f0d7c7e7cfb672768f74d899163439451088b147
from: Stefan Monnier <monnier@iro.umontreal.ca>
via: Omar Polo <op@omarpolo.com>
date: Sat May 28 15:35:36 2022 UTC

simplify some bits of code

commit - dd4e6a2cc72980b1044a36207117a950aa501241
commit + f0d7c7e7cfb672768f74d899163439451088b147
blob - 2cf17f80b560315464b63a8d138e17528ea7516d
blob + 1c7735f345ad99541b1b487c17790140b4737752
--- vc-got.el
+++ vc-got.el
@@ -1,6 +1,6 @@
 ;;; vc-got.el --- VC backend for Game of Trees VCS   -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
 
 ;; Author: Omar Polo <op@omarpolo.com>
 ;;         Timo Myyrä <timo.myyra@bittivirhe.fi>
@@ -401,10 +401,9 @@ files on disk."
   (let (process-file-side-effects)
     (vc-got-with-worktree default-directory
       (with-temp-buffer
-        (if (zerop (vc-got--call "branch" "--" name))
-            t
-          (error "[vc-got] can't create branch %s: %s" name
-                 (buffer-string)))))))
+        (or (zerop (vc-got--call "branch" "--" name))
+            (error "[vc-got] can't create branch %s: %s" name
+                   (buffer-string)))))))
 
 
 ;; Backend properties
@@ -432,8 +431,7 @@ files on disk."
       nil                               ; got doesn't track directories
     (when (vc-find-root file ".got")
       (let ((s (vc-got-state file)))
-        (not (or (eq s 'unregistered)
-                 (null s)))))))
+        (not (memq s '(nil unregistered)))))))
 
 (defun vc-got-state (file)
   "Return the current version control state of FILE.  See `vc-state'."