Remove some XXX comments no longer needed.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 3d8990a61575de0745a56f8af217a060a90e9ca1..65e8212c34f9a78936b203f89ef41d1b97c7c788 100644 (file)
--- 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 ba80153a60c06ee66cb3406fb5b1f737a7a21337..bd92fab33268c227248dfe74d048df382c2587f1 100644 (file)
--- 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 013bdcbed637506a768c8d41cc8a40cb8b7bf875..44ffa95a92f319d34ca87d6dc7eb13bbb289f0fd 100644 (file)
--- 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 e87abef125f7c2e9d9753109ce497dff77595d12..0ef41557bb5ec174fd38e3787b69d2f340c2c8a6 100644 (file)
--- 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 dd9c464f8efe5add40e1214ed36e2233c8b81e6e..481d37ecc618d464d7ef9b81ad01554f701616a8 100644 (file)
--- 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 f31d741ca142ecfa41455ecbdd4ffa2a8287804a..7ec7c2a6d4d1b1c60fdbc0892bb0908a19a7aa22 100644 (file)
--- 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.