Mercurial > emacs

changeset 73211:dae82b8b0355

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-build-subdir-alist): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Oct 2006 03:08:41 +0000
parents d4e0ad705c88
children 84d9768b4cbd
files lisp/dired.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Mon Oct 02 02:30:06 2006 +0000
+++ b/lisp/dired.el	Mon Oct 02 03:08:41 2006 +0000
@@ -2225,14 +2225,14 @@
 				(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