(vc-mcvs-read): Don't require `file' to exist.

(vc-mcvs-diff): Don't return 0 for newly added empty files.

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index e72287c417b028d54f4c841de2eea85faa8dadbd..d7123e15fa4a263a30388378a200110c3d0f3628 100644 (file)
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -150,10 +150,11 @@ of a repository; then VC only stays local for hosts that match it."
         root))))
 
 (defun vc-mcvs-read (file)
-  (with-temp-buffer
-    (insert-file-contents file)
-    (goto-char (point-min))
-    (read (current-buffer))))
+  (if (file-readable-p file)
+      (with-temp-buffer
+       (insert-file-contents file)
+       (goto-char (point-min))
+       (read (current-buffer)))))
 
 (defun vc-mcvs-map-file (dir file)
   (let ((map (vc-mcvs-read (expand-file-name "MCVS/MAP" dir)))
@@ -485,7 +486,9 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
           ;; Note: this is NOT a "mcvs diff".
           (apply 'vc-do-command "*vc-diff*"
                  1 "diff" file
-                 (append diff-switches-list '("/dev/null"))))
+                 (append diff-switches-list '("/dev/null")))
+         ;; Even if it's empty, it's locally modified.
+         1)
       (setq status
             (apply 'vc-mcvs-command "*vc-diff*"
                    (if (and (vc-mcvs-stay-local-p file)