(vc-cvs-merge-news): Fix message parsing for non-top-level files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7196d29c4771a6621cf1cb76ba99eeb92b7986b6..6e9bbb1ef46c794a6167f1c3cd0a1f7286f6d95c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-07  Sam Steingold  <sds@gnu.org>
+
+       * vc-cvs.el (vc-cvs-merge-news): Fix message parsing for
+       non-top-level files.
+
 2009-07-07  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-cmds.el (reset-language-environment): Put

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index c3f94dc2a155e29b9f56ed2c791a8672265e5550..6ef8db50537e7cad2ab3620a3ca7ebefee84b3c5 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -457,7 +457,8 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
             0 ;; there were no news; indicate success
           (if (re-search-forward
                (concat "^\\([CMUP] \\)?"
-                       (regexp-quote (file-name-nondirectory file))
+                       (regexp-quote
+                        (substring file (length default-directory)))
                        "\\( already contains the differences between \\)?")
                nil t)
               (cond