diff options
| author | Jesper Harder | 2006-06-06 18:45:21 +0000 |
|---|---|---|
| committer | Jesper Harder | 2006-06-06 18:45:21 +0000 |
| commit | 79f28143bee6cd16182441e69d9b2ba5a4cdd664 (patch) | |
| tree | 0a5dfafd47850cf0c2d3774771036e7c42302410 | |
| parent | dd24cb375fc84ea98e672da58b5ba814ef8ba472 (diff) | |
| download | emacs-79f28143bee6cd16182441e69d9b2ba5a4cdd664.tar.gz emacs-79f28143bee6cd16182441e69d9b2ba5a4cdd664.zip | |
(ediff-diff-mandatory-option): Protect against
file-error.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ediff-diff.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2aedcbc3280..23c99963e35 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-06-06 Jesper Harder <harder@phys.au.dk> | ||
| 2 | |||
| 3 | * ediff-diff.el (ediff-test-utility): Protect against | ||
| 4 | file-error. | ||
| 5 | |||
| 1 | 2006-06-06 Chong Yidong <cyd@stupidchicken.com> | 6 | 2006-06-06 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 7 | ||
| 3 | * diff-mode.el (diff-mode): Set buffer-read-only to t when | 8 | * diff-mode.el (diff-mode): Set buffer-read-only to t when |
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index 57456367522..7746954292d 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el | |||
| @@ -65,8 +65,10 @@ Must produce output compatible with Unix's diff3 program." | |||
| 65 | ;; The following functions needed for setting diff/diff3 options | 65 | ;; The following functions needed for setting diff/diff3 options |
| 66 | ;; test if diff supports the --binary option | 66 | ;; test if diff supports the --binary option |
| 67 | (defsubst ediff-test-utility (diff-util option &optional files) | 67 | (defsubst ediff-test-utility (diff-util option &optional files) |
| 68 | (eq 0 (apply 'call-process | 68 | (condition-case () |
| 69 | (append (list diff-util nil nil nil option) files)))) | 69 | (eq 0 (apply 'call-process |
| 70 | (append (list diff-util nil nil nil option) files))) | ||
| 71 | (file-error nil))) | ||
| 70 | 72 | ||
| 71 | (defun ediff-diff-mandatory-option (diff-util) | 73 | (defun ediff-diff-mandatory-option (diff-util) |
| 72 | (let ((file (if (boundp 'null-device) null-device "/dev/null"))) | 74 | (let ((file (if (boundp 'null-device) null-device "/dev/null"))) |