commit - 668dc8eb0b9440ec404e94c343f3bf4978d4e90a
commit + 5b4a6b90934a88444422e199dcde129e7db4ed8e
blob - 08d0e7c21cc9a6aec93db18e859a9e56f2fae86b
blob + 090838d3707a943a65b0de965b88ebc6353d93b4
--- vc-got.el
+++ vc-got.el
@@ -394,6 +394,9 @@ tree."
         (vc-got--parse-status-char (char-after))))))
 
 (defun vc-got-dir-status-files (dir files update-function)
+  "Build the status for FILES in DIR.
+The builded result is given to the callback UPDATE-FUNCTIONS.  If
+FILES is nil, consider all the files in DIR."
   (let* ((fs (seq-filter (lambda (file)
                            (and (not (string= file ".."))
                                 (not (string= file "."))
@@ -441,6 +444,7 @@ tree."
      "0")))
 
 (defun vc-got-checkout-model (_files)
+  "Got uses an implicit checkout model for every file."
   'implicit)
 
 (defun vc-got-mode-line-string (file)