mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

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

Browse Source 
(vc-mcvs-diff): Don't return 0 for newly added empty files.
This commit is contained in:
Stefan Monnier 2003-05-08 18:25:09 +00:00
parent 7837647476
commit 1207c9d254
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/vc-mcvs.el
View File

@ -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)