aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ediff-mult.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/ediff-mult.el')
-rw-r--r--lisp/ediff-mult.el13
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