From 7f5cd5548e0183470b7127d45911f98d7a9bb5a2 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 25 Oct 2008 20:59:38 +0000
Subject: [PATCH] (vc-cvs-status-extra-headers): Use full directory name when
 reporting the module.

---
 lisp/vc-cvs.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 0d8cbb1e6fb..cbc7fa59bab 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -1000,8 +1000,8 @@ state."
 	     (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
-- 
2.39.2