diff lisp/vc-cvs.el @ 95591:fff438dcde9e

(vc-cvs-registered): Consider a directory with a CVS subdirectory to be registered.

--- a/lisp/vc-cvs.el	Thu Jun 05 18:00:36 2008 +0000
+++ b/lisp/vc-cvs.el	Thu Jun 05 18:52:48 2008 +0000
@@ -196,16 +196,16 @@
         ;; make sure that the file name is searched case-sensitively
         (case-fold-search nil))
     (if (file-readable-p (expand-file-name "CVS/Entries" dirname))
-	(with-temp-buffer
-          (vc-cvs-get-entries dirname)
-          (goto-char (point-min))
-	  (cond
-	   ((re-search-forward
-	     (concat "^/" (regexp-quote basename) "/[^/]") nil t)
-	    (beginning-of-line)
-	    (vc-cvs-parse-entry file)
-	    t)
-	   (t nil)))
+        (or (string= basename "")
+            (with-temp-buffer
+              (vc-cvs-get-entries dirname)
+              (goto-char (point-min))
+              (cond ((re-search-forward
+                      (concat "^/" (regexp-quote basename) "/[^/]") nil t)
+                     (beginning-of-line)
+                     (vc-cvs-parse-entry file)
+                     t)
+                    (t nil))))
       nil)))
 
 (defun vc-cvs-state (file)