# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1224968378 0
# Node ID a479c7f4849d1bdfc64753d881af4441b0108b81
# Parent  d54dee52948e8c6d298708384d093349dfce4418
(vc-cvs-status-extra-headers): Use full directory name when reporting
the module.

diff -r d54dee52948e -r a479c7f4849d lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Sat Oct 25 20:59:29 2008 +0000
+++ b/lisp/vc-cvs.el	Sat Oct 25 20:59:38 2008 +0000
@@ -1000,8 +1000,8 @@
 	     (with-temp-buffer
 	       (insert-file-contents "CVS/Repository")
 	       (goto-char (point-min))
-	       (re-search-forward "[^/\n]*" nil t)
-	       (concat (match-string 0) "\n"))
+	       (skip-chars-forward "^\n")
+	       (concat (buffer-substring (point-min) (point)) "\n"))
 	   (file-error nil))))
     (concat
      (cond (module