diff options
Diffstat (limited to 'lisp/ediff-mult.el')
| -rw-r--r-- | lisp/ediff-mult.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index 71859a5d4c5..b33ad7c1859 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el | |||
| @@ -648,8 +648,8 @@ behavior." | |||
| 648 | (mapcar | 648 | (mapcar |
| 649 | (lambda (elt) | 649 | (lambda (elt) |
| 650 | (ediff-make-new-meta-list-element | 650 | (ediff-make-new-meta-list-element |
| 651 | (concat auxdir1 elt) | 651 | (expand-file-name (concat auxdir1 elt)) |
| 652 | (concat auxdir2 elt) | 652 | (expand-file-name (concat auxdir2 elt)) |
| 653 | (if lis3 | 653 | (if lis3 |
| 654 | (progn | 654 | (progn |
| 655 | ;; The following is done because: In merging with | 655 | ;; The following is done because: In merging with |
| @@ -660,7 +660,7 @@ behavior." | |||
| 660 | ;; the second case, we insert nil. | 660 | ;; the second case, we insert nil. |
| 661 | (setq elt (ediff-add-slash-if-directory auxdir3 elt)) | 661 | (setq elt (ediff-add-slash-if-directory auxdir3 elt)) |
| 662 | (if (file-exists-p (concat auxdir3 elt)) | 662 | (if (file-exists-p (concat auxdir3 elt)) |
| 663 | (concat auxdir3 elt)))))) | 663 | (expand-file-name (concat auxdir3 elt))))))) |
| 664 | common))) | 664 | common))) |
| 665 | ;; return result | 665 | ;; return result |
| 666 | (cons common-part difflist) | 666 | (cons common-part difflist) |
| @@ -716,7 +716,7 @@ behavior." | |||
| 716 | auxdir1 nil nil | 716 | auxdir1 nil nil |
| 717 | merge-autostore-dir nil) | 717 | merge-autostore-dir nil) |
| 718 | (mapcar (lambda (elt) (ediff-make-new-meta-list-element | 718 | (mapcar (lambda (elt) (ediff-make-new-meta-list-element |
| 719 | (concat auxdir1 elt) nil nil)) | 719 | (expand-file-name (concat auxdir1 elt)) nil nil)) |
| 720 | common)) | 720 | common)) |
| 721 | )) | 721 | )) |
| 722 | 722 | ||
| @@ -1338,7 +1338,10 @@ Useful commands: | |||
| 1338 | ;; update ediff-meta-list by direct modification | 1338 | ;; update ediff-meta-list by direct modification |
| 1339 | (nconc meta-list | 1339 | (nconc meta-list |
| 1340 | (list (ediff-make-new-meta-list-element | 1340 | (list (ediff-make-new-meta-list-element |
| 1341 | otherfile1 otherfile2 otherfile3))) | 1341 | (expand-file-name otherfile1) |
| 1342 | (expand-file-name otherfile2) | ||
| 1343 | (if otherfile3 | ||
| 1344 | (expand-file-name otherfile3))))) | ||
| 1342 | ) | 1345 | ) |
| 1343 | (ediff-update-meta-buffer meta-buf 'must-redraw) | 1346 | (ediff-update-meta-buffer meta-buf 'must-redraw) |
| 1344 | )) | 1347 | )) |