pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

(vc-cvs-checkout-model): Handle the case where FILE doesn't exist.

Browse source
This commit is contained in:
André Spiegel 2005-05-22 10:29:44 +00:00
parent 41c4895cd7
commit ce127eaa53
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/vc-cvs.el
View file

@ -236,16 +236,19 @@ See also variable `vc-cvs-sticky-date-format-string'."
(defun vc-cvs-checkout-model (file)
"CVS-specific version of `vc-checkout-model'."
(if (or (getenv "CVSREAD")
;; If the file is not writable (despite CVSREAD being
;; undefined), this is probably because the file is being
;; "watched" by other developers.
;; (If vc-mistrust-permissions was t, we actually shouldn't
;; trust this, but there is no other way to learn this from CVS
;; at the moment (version 1.9).)
(string-match "r-..-..-." (nth 8 (file-attributes file))))
(if (getenv "CVSREAD")
'announce
'implicit))
(let ((attrib (file-attributes file)))
(if (and attrib ;; don't check further if FILE doesn't exist
;; If the file is not writable (despite CVSREAD being
;; undefined), this is probably because the file is being
;; "watched" by other developers.
;; (If vc-mistrust-permissions was t, we actually shouldn't
;; trust this, but there is no other way to learn this from CVS
;; at the moment (version 1.9).)
(string-match "r-..-..-." (nth 8 attrib)))
'announce
'implicit))))
(defun vc-cvs-mode-line-string (file)
"Return string for placement into the modeline for FILE.