diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-08 18:25:09 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-08 18:25:09 +0000 |
commit | 954b2ba3ab4dd4ae1f87a7dbb912571558e78725 (patch) | |
tree | e5f739fb620f47781ec0d0718f7925bca9a4c2dd /lisp/vc-mcvs.el | |
parent | a8b7d1fedfc8d32fcaf4edd190dff954cb283374 (diff) | |
download | emacs-954b2ba3ab4dd4ae1f87a7dbb912571558e78725.tar.gz |
(vc-mcvs-read): Don't require `file' to exist.
(vc-mcvs-diff): Don't return 0 for newly added empty files.
Diffstat (limited to 'lisp/vc-mcvs.el')
-rw-r--r-- | lisp/vc-mcvs.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index e72287c417b..d7123e15fa4 100644 --- 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) |