diff options
| author | Michael Albinus | 2008-02-03 11:58:58 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-02-03 11:58:58 +0000 |
| commit | 4228da3ac889fa2fc40570693b77ba14bfb2f724 (patch) | |
| tree | feeae48cc8e8ea8c5b6102f2e7c9aded9a60cb5a | |
| parent | 12478e677187cf37050e00fe926cef32323d162f (diff) | |
| download | emacs-4228da3ac889fa2fc40570693b77ba14bfb2f724.tar.gz emacs-4228da3ac889fa2fc40570693b77ba14bfb2f724.zip | |
* ediff-util.el (ediff-compute-custom-diffs-maybe): Handle remote files.
| -rw-r--r-- | lisp/ediff-util.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index 058e20f6a19..7497cd3745f 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el | |||
| @@ -3424,10 +3424,14 @@ Without an argument, it saves customized diff argument, if available | |||
| 3424 | (let ((buf-A-file-name (buffer-file-name ediff-buffer-A)) | 3424 | (let ((buf-A-file-name (buffer-file-name ediff-buffer-A)) |
| 3425 | (buf-B-file-name (buffer-file-name ediff-buffer-B)) | 3425 | (buf-B-file-name (buffer-file-name ediff-buffer-B)) |
| 3426 | file-A file-B) | 3426 | file-A file-B) |
| 3427 | (unless (and buf-A-file-name (file-exists-p buf-A-file-name)) | 3427 | (unless (and buf-A-file-name |
| 3428 | (file-exists-p buf-A-file-name) | ||
| 3429 | (not (ediff-file-remote-p buf-A-file-name))) | ||
| 3428 | (setq file-A | 3430 | (setq file-A |
| 3429 | (ediff-make-temp-file ediff-buffer-A))) | 3431 | (ediff-make-temp-file ediff-buffer-A))) |
| 3430 | (unless (and buf-B-file-name (file-exists-p buf-B-file-name)) | 3432 | (unless (and buf-B-file-name |
| 3433 | (file-exists-p buf-B-file-name) | ||
| 3434 | (not (ediff-file-remote-p buf-B-file-name))) | ||
| 3431 | (setq file-B | 3435 | (setq file-B |
| 3432 | (ediff-make-temp-file ediff-buffer-B))) | 3436 | (ediff-make-temp-file ediff-buffer-B))) |
| 3433 | (or (ediff-buffer-live-p ediff-custom-diff-buffer) | 3437 | (or (ediff-buffer-live-p ediff-custom-diff-buffer) |
| @@ -3441,16 +3445,14 @@ Without an argument, it saves customized diff argument, if available | |||
| 3441 | ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize | 3445 | ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize |
| 3442 | ediff-custom-diff-options | 3446 | ediff-custom-diff-options |
| 3443 | ;; repetition of buf-A-file-name is needed so it'll return a file | 3447 | ;; repetition of buf-A-file-name is needed so it'll return a file |
| 3444 | (or (and buf-A-file-name (file-exists-p buf-A-file-name) buf-A-file-name) | 3448 | (or file-A buf-A-file-name) |
| 3445 | file-A) | 3449 | (or file-B buf-B-file-name)) |
| 3446 | (or (and buf-B-file-name (file-exists-p buf-B-file-name) buf-B-file-name) | ||
| 3447 | file-B)) | ||
| 3448 | ;; put the diff file in diff-mode, if it is available | 3450 | ;; put the diff file in diff-mode, if it is available |
| 3449 | (if (fboundp 'diff-mode) | 3451 | (if (fboundp 'diff-mode) |
| 3450 | (with-current-buffer ediff-custom-diff-buffer | 3452 | (with-current-buffer ediff-custom-diff-buffer |
| 3451 | (diff-mode))) | 3453 | (diff-mode))) |
| 3452 | (and file-A (file-exists-p file-A) (delete-file file-A)) | 3454 | (and file-A (delete-file file-A)) |
| 3453 | (and file-B (file-exists-p file-B) (delete-file file-B)) | 3455 | (and file-B (delete-file file-B)) |
| 3454 | )) | 3456 | )) |
| 3455 | 3457 | ||
| 3456 | (defun ediff-show-diff-output (arg) | 3458 | (defun ediff-show-diff-output (arg) |