# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121055886 0
# Node ID ce7ebac36002ce89fe4d5fb664d2c99a791fbaa8
# Parent  12e95a3f6745f1de60326ecc4d85072df2757ced
(dired-compare-directories): Remove "." and ".." from the alists.

diff -r 12e95a3f6745 -r ce7ebac36002 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Mon Jul 11 04:05:39 2005 +0000
+++ b/lisp/dired-aux.el	Mon Jul 11 04:24:46 2005 +0000
@@ -126,16 +126,21 @@
   (let* ((dir1 (dired-current-directory))
          (file-alist1 (dired-files-attributes dir1))
          (file-alist2 (dired-files-attributes dir2))
-	 (file-list1 (mapcar
+	 file-list1 file-list2)
+    (setq file-alist1 (delq (assoc "." file-alist1) file-alist1))
+    (setq file-alist1 (delq (assoc ".." file-alist1) file-alist1))
+    (setq file-alist2 (delq (assoc "." file-alist2) file-alist2))
+    (setq file-alist2 (delq (assoc ".." file-alist2) file-alist2))
+    (setq file-list1 (mapcar
 		      'cadr
                       (dired-file-set-difference
                        file-alist1 file-alist2
-		       predicate)))
-	 (file-list2 (mapcar
+		       predicate))
+	  file-list2 (mapcar
 		      'cadr
                       (dired-file-set-difference
                        file-alist2 file-alist1
-		       predicate))))
+		       predicate)))
     (dired-fun-in-all-buffers
      dir1 nil
      (lambda ()