/[emacs]/emacs/lisp/ediff-ptch.el
ViewVC logotype

Diff of /emacs/lisp/ediff-ptch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by kifer, Wed Mar 20 06:36:18 2002 UTC revision 1.18 by rms, Fri Jul 12 23:24:36 2002 UTC
# Line 85  See also `ediff-backup-specs'." Line 85  See also `ediff-backup-specs'."
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)))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26