diff options
Diffstat (limited to 'lisp/ediff-mult.el')
| -rw-r--r-- | lisp/ediff-mult.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index 41a7699cfdc..d3710258d24 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el | |||
| @@ -410,7 +410,8 @@ Commands: | |||
| 410 | \\{ediff-meta-buffer-map}" | 410 | \\{ediff-meta-buffer-map}" |
| 411 | (kill-all-local-variables) | 411 | (kill-all-local-variables) |
| 412 | (setq major-mode 'ediff-meta-mode) | 412 | (setq major-mode 'ediff-meta-mode) |
| 413 | (setq mode-name "MetaEdiff")) | 413 | (setq mode-name "MetaEdiff") |
| 414 | (run-mode-hooks 'ediff-meta-mode-hook)) | ||
| 414 | 415 | ||
| 415 | 416 | ||
| 416 | ;; the keymap for the buffer showing directory differences | 417 | ;; the keymap for the buffer showing directory differences |
| @@ -560,17 +561,23 @@ behavior." | |||
| 560 | (ediff-add-slash-if-directory auxdir1 elt)) | 561 | (ediff-add-slash-if-directory auxdir1 elt)) |
| 561 | lis1) | 562 | lis1) |
| 562 | auxdir2 (file-name-as-directory dir2) | 563 | auxdir2 (file-name-as-directory dir2) |
| 564 | lis2 (directory-files auxdir2 nil regexp) | ||
| 565 | lis2 (delete "." lis2) | ||
| 566 | lis2 (delete ".." lis2) | ||
| 563 | lis2 (mapcar | 567 | lis2 (mapcar |
| 564 | (lambda (elt) | 568 | (lambda (elt) |
| 565 | (ediff-add-slash-if-directory auxdir2 elt)) | 569 | (ediff-add-slash-if-directory auxdir2 elt)) |
| 566 | (directory-files auxdir2 nil regexp))) | 570 | lis2)) |
| 567 | 571 | ||
| 568 | (if (stringp dir3) | 572 | (if (stringp dir3) |
| 569 | (setq auxdir3 (file-name-as-directory dir3) | 573 | (setq auxdir3 (file-name-as-directory dir3) |
| 574 | lis3 (directory-files auxdir3 nil regexp) | ||
| 575 | lis3 (delete "." lis3) | ||
| 576 | lis3 (delete ".." lis3) | ||
| 570 | lis3 (mapcar | 577 | lis3 (mapcar |
| 571 | (lambda (elt) | 578 | (lambda (elt) |
| 572 | (ediff-add-slash-if-directory auxdir3 elt)) | 579 | (ediff-add-slash-if-directory auxdir3 elt)) |
| 573 | (directory-files auxdir3 nil regexp)))) | 580 | lis3))) |
| 574 | 581 | ||
| 575 | (if (ediff-nonempty-string-p merge-autostore-dir) | 582 | (if (ediff-nonempty-string-p merge-autostore-dir) |
| 576 | (setq merge-autostore-dir | 583 | (setq merge-autostore-dir |