mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

* vc/ediff.el (ediff-directories): Add trailing space to prompts.

Browse source 
* vc/ediff-diff.el (ediff-same-file-contents): Handle the case,
when F1 and F2 are located on different hosts.
This commit is contained in:
Michael Albinus 2012-07-16 12:19:56 +02:00
parent 6a0dd1d7e0
commit 01795a1bcf
3 changed files with 34 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2012-07-16 Michael Albinus <michael.albinus@gmx.de>
* vc/ediff.el (ediff-directories): Add trailing space to prompts.
* vc/ediff-diff.el (ediff-same-file-contents): Handle the case,
when F1 and F2 are located on different hosts.
2012-07-14 Chong Yidong <cyd@gnu.org>
* xt-mouse.el: Implement extended mouse coordinates (Bug#10642).

11
lisp/vc/ediff-diff.el
View file

@ -1406,6 +1406,7 @@ arguments to `skip-chars-forward'."
"Return t if files F1 and F2 have identical contents."
(if (and (not (file-directory-p f1))
(not (file-directory-p f2)))
(if (equal (file-remote-p f1) (file-remote-p f2))
(let ((res
;; In the remote case, this works only if F1 and F2 are
;; located on the same remote host.
@ -1417,7 +1418,15 @@ arguments to `skip-chars-forward'."
(expand-file-name f2)))))
))
(and (numberp res) (eq res 0)))
))
;; F1 and F2 are not located on the same host.
(let ((t1 (file-local-copy f1))
(t2 (file-local-copy f2)))
(unwind-protect
(ediff-same-file-contents (or t1 f1) (or t2 f2))
(and t1 (delete-file t1))
(and t2 (delete-file t2))))
)))
(defun ediff-same-contents (d1 d2 &optional filter-re)