(dired-build-subdir-alist): Fix previous change.

2 files changed, 12 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9deec93eb24..6ef8170c2a1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-01  Chris Moore <christopher.ian.moore@gmail.com>  (tiny change)
+
+        * dired.el (dired-build-subdir-alist): Fix previous change.
+
 2006-10-01  Johan Bockg,Ae(Brd  <bojohan+mail@dd.chalmers.se>
 
         * simple.el (undo-elt-crosses-region): Fix the inequalities.
diff --git a/lisp/dired.el b/lisp/dired.el
index dd7cdcdb522..491ef261c11 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2225,14 +2225,14 @@ instead of `dired-actual-switches'."
                                 (substring new-dir-name (match-end 0)))
                       (expand-file-name new-dir-name))))
             (delete-region (point) (match-end 1))
-            (insert new-dir-name)))
-        (setq count (1+ count))
-        (dired-alist-add-1 new-dir-name
-                         ;; Place a sub directory boundary between lines.
-                         (save-excursion
-                           (goto-char (match-beginning 0))
-                           (beginning-of-line)
-                           (point-marker))))
+            (insert new-dir-name))
+          (setq count (1+ count))
+          (dired-alist-add-1 new-dir-name
+                             ;; Place a sub directory boundary between lines.
+                             (save-excursion
+                               (goto-char (match-beginning 0))
+                               (beginning-of-line)
+                               (point-marker)))))
       (if (and (> count 1) (interactive-p))
           (message "Buffer includes %d directories" count)))
     ;; We don't need to sort it because it is in buffer order per