diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-10-25 20:59:38 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-10-25 20:59:38 +0000 |
| commit | 7f5cd5548e0183470b7127d45911f98d7a9bb5a2 (patch) | |
| tree | ecda871c010d1823113798c8a0917f4a1cbd7da8 /lisp/vc-cvs.el | |
| parent | ddf59b5f58396a5c75ba44020f293cb2e61c5762 (diff) | |
| download | emacs-7f5cd5548e0183470b7127d45911f98d7a9bb5a2.tar.gz | |
(vc-cvs-status-extra-headers): Use full directory name when reporting
the module.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 4 |
1 files 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 |