From 5a9de6d0185ed5302c383769c428d92279717d55 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@snark.thyrsus.com>
Date: Thu, 1 May 2008 19:28:56 +0000
Subject: [PATCH] Remove some XXX comments no longer needed.

---
 lisp/vc-bzr.el  | 10 +++-------
 lisp/vc-cvs.el  |  3 +--
 lisp/vc-hg.el   |  2 --
 lisp/vc-rcs.el  |  5 ++---
 lisp/vc-sccs.el |  5 ++---
 lisp/vc.el      |  2 --
 6 files changed, 8 insertions(+), 19 deletions(-)

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 3d8990a6157..65e8212c34f 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -593,10 +593,9 @@ Optional argument LOCALP is always ignored."
           ;; files are up-to-date unless they appear in the `bzr
           ;; status' output below
           (vc-file-setprop file 'vc-state 'up-to-date)
-          ;; XXX: is this correct? what happens if one 
-          ;; mixes different SCMs in the same dir?
-          ;; Anyway, we're looking at the output of `bzr ls --versioned',
-          ;; so we know these files are registered with Bzr.
+          ;; Anyway, we're looking at the output of `bzr ls
+          ;; --versioned', so we know these files are registered with
+          ;; Bzr.
           (vc-file-setprop file 'vc-backend 'Bzr))))
     ;; `bzr status' reports on added/modified/renamed and unknown/ignored files
     (setq at-start t)
@@ -694,11 +693,8 @@ Optional argument LOCALP is always ignored."
 	(forward-line))
       (funcall update-function result)))
 
-;; XXX Experimental function for the vc-dired replacement.
-;; XXX This probably needs some further refinement and testing.
 (defun vc-bzr-dir-status (dir update-function)
   "Return a list of conses (file . state) for DIR."
-  ;; XXX: Is this the right command to use?
   (vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S")
   (vc-exec-after
    `(vc-bzr-after-dir-status (quote ,update-function))))
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index ba80153a60c..bd92fab3326 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -857,10 +857,9 @@ state."
 	    (vc-cvs-parse-entry file t))))
       (forward-line 1))))
 
-;; XXX Experimental function for the vc-dired replacement.
 (defun vc-cvs-after-dir-status (update-function)
   ;; Heavily inspired by vc-cvs-parse-status. AKA a quick hack.
-  ;; It needs a lot of testing.
+  ;; This needs a lot of testing.
   (let ((status nil)
 	(status-str nil)
 	(file nil)
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 013bdcbed63..44ffa95a92f 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -457,8 +457,6 @@ REV is the revision to check out into WORKFILE."
 
 ;;; Hg specific functionality.
 
-;; XXX This functionality is experimental/work in progress. It might
-;; change without notice.
 (defvar vc-hg-extra-menu-map
   (let ((map (make-sparse-keymap)))
     (define-key map [incoming] '(menu-item "Show incoming" vc-hg-incoming))
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index e87abef125f..0ef41557bb5 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -182,10 +182,9 @@ For a description of possible values, see `vc-check-master-templates'."
                    (vc-rcs-state file))))
         (vc-rcs-state file)))))
 
-;; XXX Experimental function for the vc-dired replacement.
 (defun vc-rcs-dir-status (dir update-function)
-  ;; XXX: quick hack, there should be a better way to do this,
-  ;; but it's not worse than vc-dired :-).
+  ;; Doing individual vc-state calls is painful but tgere
+  ;; is no better way in RCS-land. 
   (let ((flist (vc-expand-dirs (list dir)))
 	(result nil))
     (dolist (file flist)
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index dd9c464f8ef..481d37ecc61 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -156,10 +156,9 @@ For a description of possible values, see `vc-check-master-templates'."
             (vc-sccs-state file))))
     (vc-sccs-state file)))
 
-;; XXX Experimental function for the vc-dired replacement.
 (defun vc-sccs-dir-status (dir update-function)
-  ;; XXX: quick hack, there should be a better way to do this,
-  ;; but it's not worse than vc-dired :-).
+  ;; Doing loys of undividual VC-state calls is painful, but 
+  ;; there is no better option in SCCS-land.
   (let ((flist (vc-expand-dirs (list dir)))
 	(result nil))
     (dolist (file flist)
diff --git a/lisp/vc.el b/lisp/vc.el
index f31d741ca14..7ec7c2a6d4d 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -3432,8 +3432,6 @@ line."
   (interactive)
   (vc-dir-mark-unmark 'vc-dir-mark-file))
 
-
-;; XXX: Should this take the region into consideration?
 (defun vc-dir-mark-all-files (arg)
   "Mark all files with the same state as the current one.
 With a prefix argument mark all files.
-- 
2.11.4.GIT