From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 25 Oct 2008 20:59:38 +0000 (+0000)
Subject: (vc-cvs-status-extra-headers): Use full directory name when reporting
X-Git-Tag: emacs-pretest-23.0.90~2180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f5cd5548e0183470b7127d45911f98d7a9bb5a2;p=emacs.git

(vc-cvs-status-extra-headers): Use full directory name when reporting
the module.
---

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