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 | 5ac9064701fbf7b27ea17be5db3a93a53e4c27fc (patch) | |
| tree | 72cfabd4ed3935150d3db8ea92a528cbc31fc37d /lisp/vc-cvs.el | |
| parent | 13f66b56b13fbc34461520946b2e74a8d7877e08 (diff) | |
| download | emacs-5ac9064701fbf7b27ea17be5db3a93a53e4c27fc.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 |