Commit 7de3f9a4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 1f8a132d
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment