diff lisp/ediff-diff.el @ 20206:f44ff2c52fac

new version

--- a/lisp/ediff-diff.el	Fri Oct 31 23:17:17 1997 +0000
+++ b/lisp/ediff-diff.el	Sat Nov 01 01:46:51 1997 +0000
@@ -59,6 +59,11 @@
   :type 'string
   :group 'ediff-diff)
 
+(defcustom ediff-cmp-program "cmp"
+  "*Utility to use to determine if two files are identical.
+It must return code 0, if its arguments are identical files."
+  :type 'string
+  :group 'ediff-diff)
 
 (defcustom ediff-diff-program "diff"
   "*Program to use for generating the differential of the two files."
@@ -1235,6 +1240,11 @@
 	  (funcall fwd-word-fun))
       (point))))
 
+(defun ediff-same-file-contents (f1 f2)
+  "T if F1 and F2 have identical contents."
+  (let ((res (call-process ediff-cmp-program nil nil nil f1 f2)))
+    (and (numberp res) (eq res 0))))
+
 
 ;;; Local Variables:
 ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)