diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-10-02 03:08:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-10-02 03:08:47 +0000 |
| commit | 7de3f9a41ef976056cf40f98c4b6903ef9bcad57 (patch) | |
| tree | d3b0f4ecbc621a8f1c742d1f00009141de454129 /lisp/dired.el | |
| parent | 1f8a132d060bc079ff723466518b5ac4ef4ba6b6 (diff) | |
| download | emacs-7de3f9a41ef976056cf40f98c4b6903ef9bcad57.tar.gz | |
(dired-build-subdir-alist): Fix previous change.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 16 |
1 files changed, 8 insertions, 8 deletions
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 |