commit - 08ca3c539568a65b073345fdb584ceb40920dfa1
commit + 4093d2f9a9b37cb58d2b733514812820462464f3
blob - 2d2fcfe914c4f6566de83a3a61ecf37fb71a11f9
blob + 33c544a7e236fd2b8847053ad681d4da7cb39215
--- vc-got.el
+++ vc-got.el
"Return non-nil if FILE is registered with got."
(if (file-directory-p file)
nil ;got doesn't track directories
- (let ((status (vc-got--status file)))
- (not (or (string-prefix-p "?" status)
- (string-prefix-p "N" status))))))
+ (when (vc-find-root file ".got")
+ (let ((status (vc-got--status file)))
+ (not (or (string-prefix-p "?" status)
+ (string-prefix-p "N" status)))))))
;; (vc-got-registered "/usr/ports/mystuff/net/td")
;; (vc-got-registered "/usr/ports/mystuff/net/td/Makefile")