From 328b4b7052a5d464e52818ff0f1a33b96e5e761c Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Sat, 1 Nov 1997 01:46:51 +0000 Subject: new version --- lisp/ediff-diff.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lisp/ediff-diff.el') diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index fffd99a96ef..a12959eea12 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el @@ -59,6 +59,11 @@ to a shell that you are not using or, better, fix your shell's startup file." :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 @@ argument to `skip-chars-forward'." (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) -- cgit v1.2.1