commit 424f5152bad72242de91a2638f286596ec9e5659 from: Omar Polo date: Tue Aug 10 14:05:35 2021 UTC don't need annotate-current-time; split the sections commit - 5fb2f47455079158990731f00c405d0fa88788a6 commit + 424f5152bad72242de91a2638f286596ec9e5659 blob - 64c938c066f8aca7aa53d002963fdc36f69a8fb5 blob + b9c71b275e017391ed6e836389e1b15f0a9dcf80 --- vc-got.el +++ vc-got.el @@ -81,7 +81,8 @@ ;; - revision-completion-table DONE ;; - annotate-command DONE ;; - annotate-time DONE -;; - annotate-current-time NOT IMPLEMENTED +;; - annotate-current-time NOT NEEDED +;; the default time handling is enough. ;; - annotate-extract-revision-at-line DONE ;; - region-history NOT IMPLEMENTED ;; - region-history-mode NOT IMPLEMENTED @@ -646,6 +647,9 @@ If PROMPT is non-nil, prompt for the git command to ru (let ((default-directory (vc-got--repo-root))) (vc-got--push-pull "git" "push" prompt))) + +;; History functions + (defun vc-got-print-log (files buffer &optional _shortlog start-revision limit) "Insert the revision log for FILES into BUFFER. LIMIT limits the number of commits, optionally starting at @@ -780,6 +784,9 @@ Value is returned as floating point fractional number (when (looking-at vc-got--annotate-re) (match-string-no-properties 1)))) + +;; Miscellaneous + (defun vc-got-previous-revision (file rev) "Return the revision number that precedes REV for FILE, or nil if no such revision exists." (with-temp-buffer