comparison lisp/ediff-util.el @ 47846:8e6ed5c1f142

2002-10-12 Michael Kifer <[e-mail]> * ediff-init.el (ediff-frame-char-height): use frame-selected-window. * ediff-util.el (ediff-file-checked-in-p): changed progn with and * ediff-wind.el (ediff-skip-unsuitable-frames): distinguish selected frame from frame of selected window (ediff-frame-has-dedicated-windows): don't select any frames to avoid changing selected windows (ediff-setup-control-frame): make sure auto-rase is properly set for the control frame

47845:d29cf71f0e89

(defsubst ediff-file-checked-in-p (file)
  (and (featurep 'vc-hooks)
       ;; 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))))
	 ;; XEmacs has no vc-state
	 (not (vc-locking-user file)))
       ))

(defun ediff-file-compressed-p (file)

47846:8e6ed5c1f142

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

(defun ediff-file-compressed-p (file)