branch: externals/vc-got
commit 8da4c01ab1701f49af2bb11b89698b2b3f839f1b
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>
remove debugging comments
---
vc-got.el | 19 -------------------
1 file changed, 19 deletions(-)
diff --git a/vc-got.el b/vc-got.el
index bbbf7a1..c36a3ac 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -356,21 +356,11 @@ DIR-OR-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")
-;; (vc-got-registered "/usr/ports/mystuff/tmp")
-;; (vc-got-registered "/usr/ports/mystuff/no-existant")
-
(defun vc-got-state (file)
"Return the current version control state of FILE. See `vc-state'."
(unless (file-directory-p file)
(vc-got--parse-status-flag (vc-got--status file))))
-;; (vc-got-state "/usr/ports/mystuff/net/td")
-;; (vc-got-state "/usr/ports/mystuff/net/td/Makefile")
-;; (vc-got-state "/usr/ports/mystuff/tmp")
-;; (vc-got-state "/usr/ports/mystuff/non-existant")
-
(defun vc-got-dir-status-files (dir files update-function)
(let ((fs (seq-filter (lambda (file)
(and (not (string= file ".."))
@@ -388,10 +378,6 @@ DIR-OR-FILE."
result))
finally (funcall update-function result nil))))
-;; (let ((dir "/usr/ports/mystuff"))
-;; (vc-got-dir-status-files dir nil (lambda (res _t)
-;; (message "got %s" res))))
-
(defun vc-got-dir-extra-headers (_dir)
(concat
(propertize "Branch : " 'face 'font-lock-type-face)
@@ -416,11 +402,6 @@ DIR-OR-FILE."
(when (eq (vc-got-state file) 'added)
"0")))
-;; (vc-got-working-revision "/usr/ports/mystuff/non-existant")
-;; (vc-got-working-revision "/usr/ports/mystuff/CVS")
-;; (vc-got-working-revision "/usr/ports/mystuff/tmp")
-;; (vc-got-working-revision "/usr/ports/mystuff/net/td/Makefile")
-
(defun vc-got-checkout-model (_files)
'implicit)
