diff options
| author | Chong Yidong | 2008-10-25 20:59:38 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-10-25 20:59:38 +0000 |
| commit | 7f5cd5548e0183470b7127d45911f98d7a9bb5a2 (patch) | |
| tree | ecda871c010d1823113798c8a0917f4a1cbd7da8 | |
| parent | ddf59b5f58396a5c75ba44020f293cb2e61c5762 (diff) | |
| download | emacs-7f5cd5548e0183470b7127d45911f98d7a9bb5a2.tar.gz emacs-7f5cd5548e0183470b7127d45911f98d7a9bb5a2.zip | |
(vc-cvs-status-extra-headers): Use full directory name when reporting
the module.
| -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." | |||
| 1000 | (with-temp-buffer | 1000 | (with-temp-buffer |
| 1001 | (insert-file-contents "CVS/Repository") | 1001 | (insert-file-contents "CVS/Repository") |
| 1002 | (goto-char (point-min)) | 1002 | (goto-char (point-min)) |
| 1003 | (re-search-forward "[^/\n]*" nil t) | 1003 | (skip-chars-forward "^\n") |
| 1004 | (concat (match-string 0) "\n")) | 1004 | (concat (buffer-substring (point-min) (point)) "\n")) |
| 1005 | (file-error nil)))) | 1005 | (file-error nil)))) |
| 1006 | (concat | 1006 | (concat |
| 1007 | (cond (module | 1007 | (cond (module |