# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1212691968 0
# Node ID fff438dcde9e6123597c2087299e7b445af00339
# Parent  9a4b27c8feec96e538d75dc406d3fcd641b116de
(vc-cvs-registered): Consider a directory with a CVS subdirectory to be registered.

diff -r 9a4b27c8feec -r fff438dcde9e lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 05 18:00:36 2008 +0000
+++ b/lisp/ChangeLog	Thu Jun 05 18:52:48 2008 +0000
@@ -1,3 +1,8 @@
+2008-06-05  Sam Steingold  <sds@gnu.org>
+
+	* vc-cvs.el (vc-cvs-registered): Consider a directory with a CVS
+	subdirectory to be registered.
+
 2008-06-05  Martin Rudalics  <rudalics@gmx.at>
 
 	* window.el (display-buffer-function, special-display-p)
diff -r 9a4b27c8feec -r fff438dcde9e lisp/vc-cvs.el
--- 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)