aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesper Harder2006-06-06 18:45:21 +0000
committerJesper Harder2006-06-06 18:45:21 +0000
commit79f28143bee6cd16182441e69d9b2ba5a4cdd664 (patch)
tree0a5dfafd47850cf0c2d3774771036e7c42302410
parentdd24cb375fc84ea98e672da58b5ba814ef8ba472 (diff)
downloademacs-79f28143bee6cd16182441e69d9b2ba5a4cdd664.tar.gz
emacs-79f28143bee6cd16182441e69d9b2ba5a4cdd664.zip
(ediff-diff-mandatory-option): Protect against
file-error.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/ediff-diff.el6
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 @@
12006-06-06 Jesper Harder <harder@phys.au.dk>
2
3 * ediff-diff.el (ediff-test-utility): Protect against
4 file-error.
5
12006-06-06 Chong Yidong <cyd@stupidchicken.com> 62006-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")))