commit - a96df0e8b9c0b1f0170a9d1f4a3a17c35d0d0529
commit + ddc59a024c62d068bb1b71292f0ea0c74497cb17
blob - 2c991ad02c071c26b8d9d099e1cae7e34f4a5582
blob + 2689c7ebf1ee5e952da5fe18cc26d9131fca3787
--- vc-got.el
+++ vc-got.el
(defun vc-got-unregister (file)
"Unregister given FILE, i.e. remove file if it was versioned
file or revert it if it was added but not committed."
- (pcase ((status (cdr (vc-got--parse-status (vc-got--status file)))))
+ (pcase (status (cdr (vc-got--parse-status (vc-got--status file))))
('unregistered nil) ;; no need for action
((or 'added 'missing) (vc-got--revert file))
- (default (vc-got--remove file))))
+ (_ (vc-got--remove file))))
(defalias 'vc-got-responsible-p #'vc-got-root)