emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vc-got 8da4c01 049/145: remove debugging comments


From: ELPA Syncer
Subject: [elpa] externals/vc-got 8da4c01 049/145: remove debugging comments
Date: Thu, 9 Sep 2021 15:58:31 -0400 (EDT)

branch: externals/vc-got
commit 8da4c01ab1701f49af2bb11b89698b2b3f839f1b
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]