;; CVS files are considered not checked in
(not (memq (vc-backend file) '(nil CVS)))
(if (fboundp 'vc-state)
- (progn
- (not (memq (vc-state file) '(edited needs-merge)))
- (not (stringp (vc-state file))))
+ (and
+ (not (memq (vc-state file) '(edited needs-merge)))
+ (not (stringp (vc-state file))))
;; XEmacs has no vc-state
(not (vc-locking-user file)))
))