85 |
:group 'ediff-ptch) |
:group 'ediff-ptch) |
86 |
|
|
87 |
(defun ediff-test-patch-utility () |
(defun ediff-test-patch-utility () |
88 |
(cond ((zerop (call-process ediff-patch-program nil nil nil "-z." "-b")) |
(condition-case nil |
89 |
;; GNU `patch' v. >= 2.2 |
(cond ((zerop (call-process ediff-patch-program nil nil nil "-z." "-b")) |
90 |
'gnu) |
;; GNU `patch' v. >= 2.2 |
91 |
((zerop (call-process ediff-patch-program nil nil nil "-b")) |
'gnu) |
92 |
'posix) |
((zerop (call-process ediff-patch-program nil nil nil "-b")) |
93 |
(t 'traditional))) |
'posix) |
94 |
|
(t 'traditional)) |
95 |
|
(file-error nil))) |
96 |
|
|
97 |
(defcustom ediff-backup-specs |
(defcustom ediff-backup-specs |
98 |
(let ((type (ediff-test-patch-utility))) |
(let ((type (ediff-test-patch-utility))) |