Mercurial > emacs

comparison lisp/emulation/viper-util.el @ 38723:3a1c2213b3d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(viper-file-checked-in-p): Use `and' instead of `progn'.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 07 Aug 2001 14:41:06 +0000
parents 10482dd382e7
children 8dccf2552307
comparison
equal deleted inserted replaced
38722:b1f9c6a7a002 38723:3a1c2213b3d2
692 (defsubst viper-file-checked-in-p (file) 692 (defsubst viper-file-checked-in-p (file)
693 (and (featurep 'vc-hooks) 693 (and (featurep 'vc-hooks)
694 ;; CVS files are considered not checked in 694 ;; CVS files are considered not checked in
695 (not (memq (vc-backend file) '(nil CVS))) 695 (not (memq (vc-backend file) '(nil CVS)))
696 (if (fboundp 'vc-state) 696 (if (fboundp 'vc-state)
697 (progn 697 (and
698 (not (memq (vc-state file) '(edited needs-merge))) 698 (not (memq (vc-state file) '(edited needs-merge)))
699 (not (stringp (vc-state file)))) 699 (not (stringp (vc-state file))))
700 ;; XEmacs has no vc-state 700 ;; XEmacs has no vc-state
701 (not (vc-locking-user file))) 701 (not (vc-locking-user file)))
702 )) 702 ))