commit - dd4e6a2cc72980b1044a36207117a950aa501241
commit + f0d7c7e7cfb672768f74d899163439451088b147
blob - 2cf17f80b560315464b63a8d138e17528ea7516d
blob + 1c7735f345ad99541b1b487c17790140b4737752
--- vc-got.el
+++ vc-got.el
;;; 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>
(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
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'."