diff options
| author | Michael Kifer | 2000-05-25 17:21:32 +0000 |
|---|---|---|
| committer | Michael Kifer | 2000-05-25 17:21:32 +0000 |
| commit | 7997f1ca362d13356b7a964de799d395b70ef454 (patch) | |
| tree | 455d23b4c78ebe8cc7949c6c9c646a5d47b72bdc | |
| parent | e7a903e81f21db5fc041c9f10bf7821aeb3bcd3f (diff) | |
| download | emacs-7997f1ca362d13356b7a964de799d395b70ef454.tar.gz emacs-7997f1ca362d13356b7a964de799d395b70ef454.zip | |
2000-05-25 Michael Kifer <kifer@cs.sunysb.edu>
* ediff-diff.el (ediff-exec-process): delete --binary option from
non-buffer ediff jobs.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ediff-diff.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2bc3c44f8f..cbf2a147f00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-05-25 Michael Kifer <kifer@cs.sunysb.edu> | ||
| 2 | |||
| 3 | * ediff-diff.el (ediff-exec-process): delete --binary option from | ||
| 4 | non-buffer ediff jobs. | ||
| 5 | |||
| 1 | 2000-05-25 Eli Zaretskii <eliz@is.elta.co.il> | 6 | 2000-05-25 Eli Zaretskii <eliz@is.elta.co.il> |
| 2 | 7 | ||
| 3 | * hilit-chg.el (highlight-changes-mode): Ask about color or | 8 | * hilit-chg.el (highlight-changes-mode): Ask about color or |
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index 3311977d581..845416d07d9 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el | |||
| @@ -1134,6 +1134,9 @@ delimiter regions")) | |||
| 1134 | args) | 1134 | args) |
| 1135 | (setq args (append (split-string options) files)) | 1135 | (setq args (append (split-string options) files)) |
| 1136 | (setq args (delete "" (delq nil args))) ; delete nil and "" from arguments | 1136 | (setq args (delete "" (delq nil args))) ; delete nil and "" from arguments |
| 1137 | ;; the --binary option, if present, should be used only for buffer jobs | ||
| 1138 | (or (string-match "buffer" (symbol-name ediff-job-name)) | ||
| 1139 | (setq args (delete "--binary" args))) | ||
| 1137 | (unwind-protect | 1140 | (unwind-protect |
| 1138 | (let ((directory default-directory) | 1141 | (let ((directory default-directory) |
| 1139 | proc) | 1142 | proc) |